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ABSTRACT 


An  interactive  computerized  experimental  procedure  ia 
presented  for  obtaining  the  elastic-plastic  fracture 
toughneaa  <Jjc>  for  a  material.  The  proceaa  employe  a  bend 
type,  aingle  specimen  approach  by  using  the  measured 
unloading  crack  opening  displacement  (COD)  compliance  to 
obtain  the  crack  length.  Data  are  taken,  manipulated  and 
plotted  during  the  teat  to  provide  the  operator  with  the 
neceaaary  information  to  control  the  testing  machine.  The 
program  automatically  plots  the  J  versus  crack  extension 
curve  and  determines  Jjc  upon  completion  of  the  test.  A 
second  program  is  presented  to  assist  the  operator  in 
fatigue  precracking  the  specimen.  A  third  program  is  used 
to  recall,  list  and  plot  the  data  that  were  stored  on 
diskette  during  the  test. 
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I.  ISIBQBUSIIQN 


A.  GENERAL 

The  toughness  of  s  sstarisl  is  s  ssssurs  of  the  snsrgy 
psr  unit  volume  required  to  cauaa  fracture.  It  can  be 
quantified  by  simply  taking  the  eras  under  the  true  stress 
strain  curve  from  a  simple  tension  teat  CRef.  11 .  The 
practical  usefulness  of  this  measurement  is  limited  however, 
because  it  provides  no  information  on  the  material's  ability 
to  resist  crack  propagation.  Since  all  real  structures 
contain  notches  or  cracks  of  some  sort,  by  design  or 
otherwise,  which  act  as  stress  concentrators,  another 
measurement  of  toughness  was  developed  called  fracture 
toughness . 

The  fracture  toughness  <Xc>  of  a  material  is  a  measure 
of  the  resistance  of  the  material  to  fracture  in  the 
presence  of  a  defect.  K  is  defined  as  the  plane  strain 
fracture  toughness  and  is  used  to  quantify  a  material's 
resistance  to  crack  propagation  CRef.  21.  The  American 
Society  for  Testing  and  Materials  (ASTM)  developed 
Standard  E399-83  CRef.  31  which  establishes  precise 
details  for  accepted  testing  procedures.  The  standard 
also  provides  rigid  criteria  for  the  specimen  size  and 
geometry  to  ensure  plane  strain  conditions  exist  at  ths 
tip  of  the  crack. 
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Tha  J-intagral  aathod,  davalopad  by  Rica  in  1968, 
providaa  •  Mans  of  including  plaatic  daforaation  at  tha 
crack  tip  CRaf.  43.  J  ia  a  laaaura  of  tha  intanaity  of  tha 
antira  alaatic-plaatic  atraaa-atrain  fiald  that  aurrounda 
tha  crack  tip.  Jic  i«  dafinad  aa  tha  valua  of  J  at  tha 
onaat  of  cracking.  J-intagral  taating  haa  gainad  accaptanca 
aa  a  valuabla  aaana  of  avaluating  a  aatallic  .trial 'a 
raaiatanca  to  crack  initiation  aa  daaonat  .lad  by 
aatabliahaant  of  ASTM  Standard  E813-81  CRaf.  Tha 
aaaaurad  valua  of  Jic  haa  practical  applicationa  in 
aaaauring  tha  affacta  of  aatallurgical  variablaa,  haat 
traataanta,  and  waldaanta  and  ia  baing  uaad  by  raaaarchara 
today  to  aaka  auch  quantitativa  diatinctiona  CRaf.  3-7] . 


B.  Jic  VERSUS  Kic  TESTING 

Tha  procaduraa  aatabliahad  by  ASTH  Standard  E399-83  for 
obtaining  Kic  iapoaa  ainiaua  apaciaan  aiza  raquiraaanta 
that  cauaa  difficulty  whan  taating  aatariala  that  poaaaaa 
high  toughnaaa.  'Tha  apaciaan  thieknaaa  auat  ba  aufficiant 
to  cauaa  plana  atrain  conditions  to  axiat  CRaf.  33. 
Hartzbarg  CRaf.  23  praaanta  tha  aapirical  aquation 
davalopad  by  Brown  and  Srawlay  CRaf .  83 : 

t  and  a  >  2.S  •  (Kic/Ya> 

whara 


t  ■  apaciaan  thieknaaa 


a  ■  crack  langth 


IB 


Kic  -  plan*  strain  fractura  toughnaaa 
Ya  *  yiald  atrangth 


A  aiailar  analysis  for  J-lntagral  taat  apaclaana  ravaala 
that: 

b  or  B  >  2S  •  (Jic/Fa> 

whara 


b  *  Initial  uncrackad  llgaaant 

B  ■  apaclaan  thicknaaa 

Jle  *  anticlpatad  valua  If  Jjc 

rachack  whan  taat  la  coaplatad 
Fa  ■  flow  atraaa  t ( Ya+Uts) /2] 


Hartzbarg  takas  this  raault  ona  atap  furthar  by  showing  that 
Jlc  aquala  (Kic)2/e  (whara  E  aquals  tha  jatarial'a  alaatlc 
aodulua)  for  Jic.  By  dividing  tha  two  aquations  ona  aaaa 
that: 

(Kjc  apaclaan  alza)  >  20  •  (Jic  apaclaan  alza) 
thus,  bacauaa  tha  J-lntagral  allows  plastic  daforaatlon,  ona 
of  Its  aoat  significant  advantagaa  la  that  a  aatlafactory 
apaclaan  can  b*  obtalnad  at  ona-twantiath  (1/20)  of  tha 
thicknaaa  of  a  Kic  apaclaan.  This  not  only  aaana  aaallar 
apaclaana  aay  ba  uaad  but,  also,  aaallar  tasting  aachlnaa 
ara  raqulrad  and  tharafora  coats  ara  raducad.  CRaf.  21 

Although  Jxc  «nd  Xic  provida  a  dlffarant  aaaaura  of 
toughnaaa,  Jxc  can  ba  uaad  to  aatlaata  Xjc*  ASTM  Standard 
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E813-81 


CRef 


51  provides  lisitsd  guidelines  on  ths 


rslationship  between  ths  two. 

C.  PURPOSE  AND  SCOPE  OF  RESEARCH 

Ths  purpose  of  this  thesis  is  to  develop  the  procedures 
required  to  obtain  Jic  from  J-integral  test  results  using 
equipment  currently  available  within  the  Materials  Science 
group  of  the  Mechanical  Engineering  Department  at  the  Naval 
Postgraduate  School  <NPS).  A  list  of  the  ma]or  equipment, 
follows: 

a.  Series  810  MTS  machine 

b.  HP-9826  computer  with  internal  disk  drive 
and  320X  random  acceas  memory 

c.  HP -3497 A  data  acquisition  system 

d.  HP -3437 A  voltmeter 

e.  HP-2671G  thermal  printer 

f.  HP-7225B  graphics  plotter 
Figure  1  shows  the  system  layout. 

The  teat  method  developed  ia  to  comply  with  ASTM 
Standard  E813-81  CRef.  S3,  be  easy  for  others  to  use,  and 
require  a  minimum  of  operator  interaction.  It  ia 
specifically  designed  for  use  with  three  point  bend 
specimens  using  a  single  vice  multiple  specimen  approach. 
The  method  developed  and  presented  here  covers  the  entire 
test,  including  specimen  preparation,  precracking,  testing, 
and  validation  of  resulta. 
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A.  J- INTEGRAL 


Tha  J-intagral  ia  a  mathaaatieal  axpraaaion  uaad  to 
charactariza  tha  naar  tip  atraaa-atrain  anvlronaant  of 
crackad  alaatic-plaatic  bodiaa  CRaf.  91.  It  ia  a  path 
indapandant  lina  intagral  that  aurrounda  tha  crack  tip  for 
non-linaar  plaatic  aatallic  aatariala  CRaf .31 .  Tha  aquation 
dalvalopad  by  Rica  ia  CRaf.  43: 

J  dy  ~  T*<*u/4lt>  dm) 

whara 


W  *  loading  work  par  unit  voluaa,  or  for  alaatic 
bodiaa,  atrain  anargy 

*  tha  path  of  tha  intagral,  which  ancloaaa  tha 
crack  tip 

da  ■  incraaant  of  tha  contour  path 
T  ■  outward  traction  vactor  on  da 
u  ■  diaplacaaant  vactor  at  da 
x,y,z  ■  ractangular  coordinataa 

T*<4u/ix)da  ■  tha  rata  of  work  input  froa  tha  atraaa 
fiald  into  tha  araa  ancloaad  byt’  . 
Figura  2  providaa  a  pictorial  rapraaantation  of  thia 
aquation. 

Tha  aathaaatlcal  axpraaaion  davalopad  by  Rica  CRaf.  43 
haa  baan  aanipulatad  and  raducad  to  aiaplar  foraa  for 
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mpmciflc  apaciaan  gcoaatrita.  Rica,  Paris,  and  Harkal  CRaf. 
101  raducad  tha  J-intagral  axpraasion  for  a  thraa  point  band 
apaciaan  to: 

2  •  A 

J  . - 

b  *  B 


whara 


J 

A 

b 

B 

Thia  thaaia  ia 
rathar  apply 
hara. 


■  raaiatanca  to  crack  initiation 

*  araa  undar  load  varaua  load  lina 
diaplacaaant  curva 

*  uncrackad  ligaaant 

■  apaciaan  thicknaaa 

not  intandad  to  radavalop  tha  J-intagral  but 
it,  tharafora  only  tha  raault  ia  praaantad 


Mora  racant  work  by  Ernat,  P aria,  and  Landaa  CRaf.  11] 
corracta  tha  calculation  of  J  dua  to  crack  growth  by  aaana 
of  tha  following  aquation: 

J(i*l>  *  <  Ji*  <n/b>  i*Ai,i»i>  »  Cl-<Y/b>.<ai«.i-ai>> 

whara 

J(i*l>  *  currant  valua  of  J 
Ji  ■  laat  J  coaputad 

n  *  1  for  thraa  point  band  typa  apaciaana 
Ai,i*i  »  araa  ancloaad  by  tha  actual  taat 
racord  and  linaa  of  conatant 


diaplacaaant  di  and  dj.  +  x 
Y  •  1  for  thraa  point  band  typa  apaciaana 


b  *  currant  uncracked  ligaaant 


W  ■  spaciaan  width 
ai  *  laat  crack  length 
ai-»i  •  currant  crack  langth 

Corracting  for  crack  growth  during  tha  taat  ia  nacaaaary 
whan  uaing  a  aingla  apaciaan  approach  aa  uaad  by  thia 
aathod . 

Tha  blunting  lina  dafinad  aa: 

J  ■  2  »  Fa  •  dalta  a 


whara 


Fa  *  flow  atraaa 

dalta_  a  *  changa  in  crack  langth 
epproxiaataa  apparant  crack  advanca  dua  to  crack  tip 
blunting  in  tha  abaanca  of  alow-atabla  crack  tearing.  It  la 
plotted  on  tha  J  varaua  crack  axtanaion  plot.  A  linear 
ragraaaion  fit  through  tha  applicable  data  pointa  ia  than 
plotted.  Tha  interaection  of  tha  two  linea  ia  by  definition 
Jje  Caaa  Figure  3). [Ref.  91 


B.  PREVIOUS  WORK 

Tha  early  experimental  aathoda  uaad  to  obtain  Jic 
required  tha  preparation  of  aavaral  apaciaana.  Each 
apaciaan  received  a  different  load.  Tha  apaciaana  ware  than 
heat  tinted  (to  identify  crack  langth)  and  brokan  apart. 
Each  apaciaan  provided  one  data  point  on  tha  J  varaua  crack 
axtanaion  curve*  coaaonly  referred  to  aa  tha  J-R  curve  CRaf. 
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9  and  111 


Checks  were  than  performed  on  the  validity  of 


the  data.  A  ainiaua  of  four  valid  data  points  were  required 
to  obtain  a  linear  least  squares  fit  and  hence  J jc  [Ref. 
3,10  and  123 . 

Researchers  over  the  last  five  years  have  developed  a 
such  improved  test  method  whereby  a  single  specimen  can  be 
used.  Today's  computerized  data  acquisition  equipment  and 
data  manipulation  are  ideally  suited  for  the  task.  By 
relating  the  compliance  (how  much  a  specimen  bends  under  a 
given  load)  to  the  crack  length,  all  the  data  required  to 
obtain  the  J-R  curve  can  be  collected  by  using  a  single 
specimen  CRef. 11-161.  Clarke  [Ref. 161  states  that  prior  to 
the  use  of  computers  the  time  required  for  data  reduction  to 
obtain  the  J-R  curve  was  four  to  five  hours.  Using 
computerized,  single  specimen,  unloading  compliance  methods 
it  is  now  possible  to  to  obtain  the  J-R  curve  in  a  matter  of 
twenty  to  thirty  minutes  after  the  test  starts.  The  obvious 
savings  in  specimen  prepsration  and  data  reduction  have  made 
the  J- integral  a  valuable  means  of  analysis  where  no 
practical  means  previously  existed. 

C.  TEST  CRITERIA 

The  test  method  developed  in  this  thesis  is  specifically 
designed  for  use  on  a  three  point  bend  specimen.  It 
utilizes  the  single  specimen  approach  by  relating  the  crack 
opening  displacement  (COD)  compliance  to  the  crack  length. 
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Tha  following  aquationa  ara  currant ly  uaad  by  OTNSRDC.  For 
band  apaciaana  with  a  apan  to  width  CS/W)  ratio  of  4.0,  Dr. 
J.  Joyca  CRaf.  173  of  tha  Uni tad  Stataa  Naval  Acadaay 
datarainad: 

a/W  »  0 . 398265  -  3.81662  *  U  -  1.80396  *  U2  ♦  32.31038  •  U3 
-  44.13665  *  U4  -  32.67876  *  U® 

whara 

a  ■  crack  langth 
W  ■  apaciaan  width 


1 


whara 

Bt  ■  affactiva  thicknaaa  »  Baax  -  (Baax  ~  Baln>2/Baax 
E  ■  aatarial'a  alaatic  aodulua 
S  ■  apan  batwaan  aupporta 
W  *  apaciaan  width 

coapl  ■  coaplianca  ■  1/alopa  of  tha  load  varaua  COD  lina 
for  tha  apaciflc  unloading. 

Tha  raaaon  for  ualng  tha  aingla  apaciaan  approach  haa 
alraady  baan  praaantad.  Tha  raaaona  a  band  typa  apaciaan 
and  COD  typa  unloading  coaplianca  ara  uaad  ara: 

a.  Thraa  point  band  apaciaan  gaoaatry  ia  bat tar  auitad 
than  eoapact  tanaion  apaciaana  for  taating  waldaanta. 

b.  Thraa  point  band  apaciaan  gaoaatry  ia  alao  aaalar  to 
aachina  than  conpaet- tanaion  apaciaana. 


c.  COD  voltage  readings  are  laaa  auacaptibla  to  noiaa 
than  linear  variable  differential  tranaforaer  (LVDT) 
voltagea  uaed  to  aeaaure  load  line  diaplaceaent . 

d.  The  COD  compliance  equation  afforda  O.ix  fitting 
accuracy  and  allowa  comparison  of  results'  with 
DTNSRDC  teat  data  CRef .  171 . 
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III.  IgST  METHOD 


A.  OVERVIEW 

A  J-intagral  taat  can  ba  dividad  into  thraa  diatinct 
atapa,  1)  pra-taat,  2)  taat,  and  3>  poat-taat.  Each  o£ 
thaaa  ara  daacribad  in  graatar  datail  in  thia  chaptar  and 
praaantad  aa  a  atap  by  atap  procadura  in  Appandix  A. 

Aftar  tha  apaciaan  ia  aachinad  it  auat  ba  pracrackad 
uaing  cyclic  fatigua  loading  to  ainiaiza  raaidual  atraaaaa 
and  craata  a  aharp  crack  tip  CRaf .  51 .  A  coaputar  prograa 
waa  davalopad  to  aaaiat  tha  oparator  in  accoapliahing  thia. 
Tha  prograa  coaputaa  tha  loading  paraaatara  for  pracracking 
in  accordanca  with  ASTM  Standarda  E399-83  and  A STM  E813-81 
CRaf.  3  and  31.  Tha  oparator  uaaa  thia  inforaatlon  to  run 
tha  MTS  aachina. 

During  tha  J-intagral  taat  a  aacond  coaputar  prograa 
collacta  and  racorda  tha  load,  COD,  and  load  point, 
diaplacaaant  <daf laction) .  Thaaa  data  ara  uaad  by  tha 
prograa  to  dataraina  J  and  tha  aaount  of  crack  axtanalon  for 
aach  oparator  control lad  unloading  cycla.  An  unload  cycla 
conalata  of  dacraaaing  tha  load  by  10k  of  tha  axpactad 
aaxiaua  load  and  raloading  to  tha  original  load  point.  Tha 
prograa  provldaa  tha  oparator  with  a  raal-tlaa  graphical 
rapraaantation  of  tha  any  two  paraaatara  (load  varaua  COD  or 
daf laction)  during  tha  taat.  It  will  alao  plot  tha  J-R 
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curva  and  coaputa  Jjc  upon  eoaplation  of  taking  all  tha  taat 
data.  Data  ara  atorad  on  diakatta  to  aarva  aa  a  raeord  and 
allow  futura  rocall  Hating  or  plotting. 

Tha  poat-taat  procaaa  includaa  haat  tinting  tha  apaciaan 
to  aid  in  viaual  var if ication  of  crack  axtanaion  upon 
eoaplation  of  tha  taat  aa  raquirad  by  ASTM  Standard  E813-81 
IRaf .  S3 . 

B.  SPECIMEN  PREPARATION 

Figura  4  ahowa  apacifically  tha  diaanaiona  uaad  in 
praparing  aight  apaciaana  froa  two  diffarant  ona  inch  thick 
waldad  plataa  of  HY-80.  Ona  plata  waa  prahaatad  whila  tha 
othar  waa  not.  It  waa  nacaaaary  to  raduca  tha  width  to 
approxiaataly  0.9S  inchaa  to  raaova  tha  diatortion  (bow) 
craatad  by  tha  wald.  Four  apaciaana  w ara  praparad  from 
aach  plata,  tha  aachinad  notch  waa  placad  in  tha  wald  aatal 
for  two  and  in  tha  baaa  aatal  for  tha  othar  two.  Tha  clip 
gaga  (uaad  to  aaaaura  COD)  ia  attachad  to  tha  top  of  tha 
apaciaan  by  aaana  of  two  cut  razor  bladaa.  Tha  bladaa  ara 
hald  down  by  aaall  atrapa  which  allow  adjuataant  of  tha 
initial  gap.  Tha  initial  gap  ia  aat  to  0.473  inchaa,  tha 
calibratad  zaro  aatting  for  tha  clip  gaga,  by  aaana  of  a 
aachinad  gaga  tool  that  raata  in  tha  apaciaan'a  aachinad 
notch.  Thia  aathod  ia  alao  uaad  by  DTNSRDC. 

Two  additional  holaa  ara  drillad  and  tappad  for 
rataining  a  aaall  brackat  on  tha  faca  of  tha  apaciaan.  Tha 
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bracket  is  used  to  provida  a  ssnsing  point  for  a  linear 
variable  differential  transformer  CLVDT) .  The  LVDT  signal 
is  used  to  calculate  the  area  under  the  load  versus 
displacement  curve.  At  present  the  external  LVDT  is  unable 
to  control  the  MTS  aachine  so  the  current  aethod  uses  the 
MTS'  internal  LVDT  to  measure  deflection  via  actuator 
movement . 

Clarke  CRef.  163  states  that  side  grooves  improve  the 
accuracy  of  calculating  the  crack  length  when  uaing 
unloading  compliance  procedures.  The  side  grooves  reduce 
plastic  deformation  on  the  surface  and  aid  in  propagating  a 
straighter  crack  front.  DTNSRDC  has  found  20k  aide 
grooving  produces  the  beat  results,  hence  the  same  was  used 
for  this  work. 

After  the  specimen  is  prepared  a  test  record  sheet  <see 
Appendix  B)  is  completed.  Notch  and  aide  groove  depths  can 
be  measured  using  a  dial  indicator  with  a  needle  tip.  The 
record  provides  the  operator  with  ready  access  to  the 
information  necessary  to  run  the  precracking  and  test 
programs . 

C.  PRECRACKING 

Before  the  J-lntegral  teat  can  be  performed  the 
specimen  must  be  precrackad  to  establish  a  sharp  crack  tip. 
ASTM  Standards  E813-81  and  E399-83  establish  parameters  that 
must  be  met  during  precracking  to  prevent  over-stressing  the 
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apaciaan  or  propagating  tha  crack  through  tha  antira  width . 
Pracracking  ia  accoapiiahad  with  tha  aid  of  a  program  called 
"PRECRACK**  which  will  coaputa  loading  raquiraaanta  baaed 
upon  thaaa  pareaantera. 

Tha  prograa,  writtan  in  HP-Baalc,  afforda  flexibilty  by 
allowing  tha  uaa  of  diffarant  band  apeciaan  aizaa  and 
aatarials.  It  ia  aaay  to  uaa  dua  to  ita  interactiva  daaign 
and  aaay  to  aodify  ahould  much  a  naad  ariaa.  A  liating  of 
"PRECRACK”  ia  providad  in  Appandix  D. 

Tha  oparator  ia  raquaatad  by  tha  prograa  to  entar 
apacific  apaciaan  data.  Tha  prograa  will  coaputa  tha  initial 
aaxlaua  and  minimum  loada  and  change  in  tha  aaaociatad 
straaa  intanaity  factor  (delta  K) .  If  thia  delta  K  exceeda 
40  kai»inl''2  than  new  aaxiaua  and  ainiaua  loada  are 
coaputad.  Tha  oparator  ia  raaponaibla  for  anaurlng  tha  HTS 
machine  ia  operating  within  tha  preacribad  liaita.  Tha 
oparator  can  obtain  a  hard  copy  of  tha  entered  and  coaputad 
data  for  record  purpoaaa  (aaa  Appandix  G). 

Tha  HTS  machine  producaa  cyclic  loading  by  aaana  of  an 
inverted  (coapreaaive  load)  havar  mine  wave. 

Tha  oparator  auat  periodically  interrupt  tha  cyclic 
loading  and  aaasura  tha  currant  crack  length  by  manually 
loading  and  unloading  tha  apaciaan  (determine  tha  apaciaan 'a 
compliance) .  Tha  prograa  coaputaa  tha  new  crack  length  and 
new  loading  liaita.  During  tha  laat  SOX  of  pracracking: 

Paax  <  . 4Pl 
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whart 

Paax  ■  uxiaua  load 

PL  ■  C (4/3)  •  <B  *  b2  •  Fa  /  <2  »  Ha>>3 

whara 

B  »  nat  thicknaaa  (Bain  if  apaciaan  haa  aida  groovaa) 
b  ■  currant  uncrackad  ligaaant  (W-a) 

Fa  ■  flow  atraaa  { (Ya+Uta) /2) 

Ha  ■  half  apan 

and  Dalta_K/E  <  0.005  aal^2  <0.001  inl/2>  whichaver , 

producaa  tha  laaat  load  CRaf .  5] .  Tha  prograa  will 

autoaatically  bagin  uaing  thaaa  paraaatara  whan  tha  aoat. 
racantly  calculatad  crack  langth  axcaada  thia  50x  of  tha 
raquirad  axtanaion  to  raach  a/W  *  0.6.  Thia  valua  ia  uaad 
bacauaa  it  ia  tha  optiaua  crack  langth  with  which  to  bagin 
tha  J-lntagral  taat  CRaf.  S3 . 

D.  J- INTEGRAL  TEST 

Tha  J-intagral  taat  ia  parforaad  by  alowly  applying  a 
load  to  tha  apaciaan  and  pariodically  unloading  it  by  10k  of 
tha  axpactad  aaxiaua  load.  Tha  NTS  aachina  ia  aat  up  in 
atroka  control  with  a  vary  aaall  invartad  raap  function 
raaulting  in  a  loading  rata  of  0.005  inch/ainuta.  Tha 
oparator  auat  again  intarrupt  tha  MTS  prograa  and  aanually 
unload  tha  apaciaan.  Each  unloading  cycla  (unload  and 
raload>  providaa  tha  nacaaaary  inforaation  to  coaputa  tha 
currant  crack  langth.  Tha  crack  langth  ia  than  uaad  to 
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determine  the  valua  of  J  up  to  that  point.  Tha  coaputar 
prograa  "J_INTGL"  providaa  tha  oparator  with  partinant 
inforaation  during  tha  taat.  Onca  tha  taat  ia  coapletad, 
tha  oparator  can  obtain  tha  J-R  curve  and  valua  of  Jxc  ( s«e 
Figura  4  and  Appandix  H) .  Tha  prograa  will  uaa  only  data 
pointa  batwaan  tha  offaata,  (blunting  lina  ♦  O.lSaa)  to 
(blunting  lina  ♦  l.Saa)  aa  raquirad  ASTH  Standard  E813-81 
whan  coaputing  tha  linaar  ragraaaion  lina.  A  ainiaua  of 
four  data  pointa  auat  ba  within  tha  offaata  and  ona  auat  lia 
naar  (within  1/3  tha  ovarall  ranga  of  dalta_a)  tha  blunting 
lina.  Spacific  accaptability  critaria  for  data  ia  provided 
in  ASTH  Standard  E813-81  CRef .  SI  . 

Tha  prograa  MJ_INTGL'*  ia  tha  foundation  of  tha  taat 
method,  tha  aingla  apaciaan  approach  would  not  ba  poaaible 
without  it.  Tha  prograa  collecta,  manipulates,  diaplaya  and 
records  all  partinant  data  during  tha  taat.  A  flow  chart  of 
'•J_I1ITGL•,  ia  provided  in  appandix  c.  A  Hating  of  "J_INTGL" 
ia  provided  in  Appandix  E. 

Deflection  aaaauraaanta  are  praaantly  taken  uaing  tha 
LVDT  i natal lad  in  tha  HTS  machine.  A  correction  is 
therefore  raquirad  to  account  for  tha  ayatem'a  compliance 
while  loading  a  apaciaan.  Tha  correction  waa  obtained  by 
loading  tha  ayatem  with  a  two  inch  thick  piece  of  HY130  and 
recording  tha  atroka  reading  for  varioua  loada.  This 
procaaa  waa  checked  three  tiaaa  with  conaiatant  (within  3x) 
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raaulta 


A  plot  of  tha  data  and  tha  4th  ordar  ploynoaial 


curva  fit  ia  includad  aa  Figura  S. 

£.  POST  TEST  VERIFICATION 

Tha  raaulta  auat  ba  varifiad  upon  coapletion  of  tha 
taat.  ASTH  Standard  E813-B1  praaanta  tha  following  critaria 
that  auat  ba  aat  bafora  tha  taat  can  ba  conaidarad  valid: 

1.  Total  crack  axtanaion  (viaually  aaaaurad)  auat  ba 
within  15%  of  that  racordad  during  tha  taat. 

2.  bi  and  Bain  >  25  •  Jjc  /  Fa  (all  taraa  ara  aa 
dafinad  aarliar  axcapt  bi  *  poat-fatigua  uncrackad 
llgaaant) . 

3.  Tha  alopa  of  tha  linaar  ragraaaion  fit  to  tha  data 
auat  ba  laaa  than  flow  atraaa  (dJ/da  <  Fa). 
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IV.  RESULTS 


A.  TEST  RESULTS 

Spaciaen  HY80-5B,  praparad  from  the  baaa  Ratal  of  the 
prahaatad  walded  plate,  waa  precracked , and  teated  reaultlng 
in  a  Jjc  value  of  142  kJ/a2.  Figure  8  ia  a  tracing  of  a 
photograph  of  tha  final  fracture  aurfaca  after  heat  tinting. 
All  poat  teat  chacka  ware  coaplatad  and  yielded  aatiafactory 
raaulta.  Tha  Jic  value  ia  in  good  agreeaent  with  previous 
taata  of  HY80  plate  aa  conducted  by  DTNSRDC  reaultlng  in  an 
average  Jjc  of  144  kJ/a2  [Ref.  61 . 

Plota  of  J-R  curve,  load  varaua  COD,  load  veraua 
deflection  and  tha  are  included  aa  Figuraa  5,  6  and  7, 
respectively .  Tha  load  varaua  deflection  curve  waa  obtained 
uaing  tha  prograa  ••J_DATA",  thua  proving  that  the  data  ia 
stored  on  disk,  and  ia  able  to  be  recalled. 

Data  waa  taken  at  a  nearly  conatant  rate  of  2.3  data 
points  per  second  (130  per  ainute)  while  the  prograa  waa 
executing . 

Teat  reulta  were  verified  following  tha  guidelines 
provided  by  ASTM  Standard  E813-81.  The  fracture  surface  was 
enlarged  by  taking  a  photograph,  a  tracing  of  which  ia 
included  as  Figure  8.  The  observed  crack  length  waa  14. 4X 
longer  than  the  laat  recorded  crack  length.  This  ia  within 
the  acceptable  liait  (recall  ASTM  requires  <  13X)  but 
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bacauaa  tha  clip  gaga  raachad  ita  limit  datactor  and  cauaad 
tha  taat  NTS  to  atop  batwaan  unloadinga,  it  ia  poaaibla  aoma 
crack  axtanaion  occurrad  aftar  tha  laat  unloading  cycla. 
Thia  would  halp  to  axplain  tha  diffaranca. 

Additional  information  on  thia  apacific  taat  ia  providad 
by  baing  uaad  in  tha  axaapla  calculationa  ahown  in  Appandix 
A.  Tha  axamplary  computar  output  for  aach  of  tha  programs 
ia  alao  from  apaciaan  HY80-5B.  (Saa  Appandixaa  G,  H  and  I). 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

The  aethod  developed  and  praaantad  by  thia  work  producaa 
accurate  and  reliable  reaulta  that  aaat  tha  apacificationa 
aatabliahad  by  ASTM  Standard  E813-81.  Pracracklng  apaciaan 
HY80-5B  took  approxiaataly  2  houra  and  tha  J-teat  raquirad 
approxiaataly  2.S  houra  including  aavaral  pauaaa  to  annually 
verify  aavaral  calculationa.  Tha  tiae  raquirad  for  tha 
procaaaaa  will  aoat  likaly  dacraaaa  aa  oparator  axparianca 
and  confidanca  incraaaaa. 

All  thraa  coaputar  prograaa  hava  run  auccaaafully  and 
parfora  aa  intandad. 

B.  RECOMMENDATIONS 

Aa  with  all  firat  varaiona  of  coaputar  prograaa  *a 
axtanaiva  aa  "J_INTGL",  changaa  and  iaprovaaanta  ara  to  ba 
expected.  Tha  following  prograaaing  changaa  aay  ba  of  value 
to  future  oparator a: 

1.  Diaplay  pertinent  inforaation  (i.a.  currant  crack 
length  in  both  Engliah  and  aetric  unita  (currently 
only  aetric  ia  provided). 

Provide  a  aaana  of  atoring  tha  data  arraya  during  tha 
teat  without  being  raquirad  to  rerun  tha  entire 
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prograa  (ra-antaring  apaciaan  data 
ate.  > 


convanion  data 


3.  Provida  a  aaana  of  aliainating  a  apacific  J-R  data 
point  froa  baing  uaad  in  obtaining  tha  linaar 
ragraaaion  fit.  Thia  aay  ba  prograaaad  to  ba 
accoapliahad  autoaaticaily  by  applying  Chauvenet'a 
Critarion  to  tha  data. 

Iaprovaaanta  in  tha  currant  aaana  of  conducting  tha  taat 
can  alao  ba  nada,  auch  aa  making  tha  MTS  control  both 
loading  and  unloading  uaing  tha  aaaa  rata,  requiring  tha 
operator  to  do  no  aora  than  praaa  a  button  or  throw  a 
•witch.  Laatly,  puraua  tha  uaa  of  tha  external  LVDT,  thia 
will  aliainata  tha  need  for  correcting  tha  deflection 
reading  and  apaad  up  tha  rata  of  data  acquiaition. 
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MTS  810 

Material  Test  System 


Figure  1.  System  Layout 
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J-Integral 


y 


Figure  2.  Pictorial  Representation  of  J-Integral 
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PLOT  of  J  vs  CRACK  EXTENSION  for  HY80-5B 


Figure  3.  J  Versus  Crack  Extension  for  HY80-5B 


Figure  4.  Specimen  Drawing 


COD  for  HY80-5B 
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Figure  6.  Plot  of  Load  Versus  COD  for  HY80-5B 


DEFLECTION  (mm) 

Figure  7.  Plot  of  Load  Versus  Deflection  for  HY80-5B 


Fracture  Surface 


Machined  Fatigue  J-Integral 
Notch  Crack  Test 


Figure  8.  Tracing  of  HY80-5B  Fracture  Surface 


APPENDIX  A 


TESTING  METHODS 


A.  INTRODUCTION 

The  steps  required  to  perfora  a  J-integral  teat  uaing  a 
aingle  apeciaan  approach  can  be  divided  into  three  aajor 
categories ,  pre-test,  teat,  and  post  test.  Each  of  these 
categories  aay  be  further  divided  as  shown  below. 

1 .  Pre-test 

a.  Machine  speciaen 

b.  Precrack  speciaen  by  fatigue  loading 

2 .  Test 

a.  Run  J-integral  teat 

3.  Post -test 

a.  Heat  tint  speciaen  and  break  apart 

b.  Measure  crack  extension  and  verify  results 


Each  process 

is  described  in  < 

greater 

detail  in 

this 

appendix. 

A 

working  knowledge 

of  the 

equipaent 

i  a 

presupposed 

and 

safety 

precautions 

is 

required  before  operating  the  MTS. 

B.  PRE-TEST 
a.  Machine  Speciaen 

ASTM  Standard  £813-81  provides  very  specific  guidance  on 
speciaen  diaensions.  All  diaensions  are  related  to  the 
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width  <W) .  Fatigue  precracking  ia  enhanced  if  the  radius  at 
the  tip  of  the  notch  ia  kept  to  approxiaately  0.003  inchea. 
Thia  waa  accoapliahed  by  aachining  with  a  apecial  cutter 
which  waa  uaed  to  aaka  only  the  final  paaaea  in  the  notch. 
Figure  2  can  be  conaulted  for  the  actual  diaenaiona  uaed  to 
aachine  the  apeciaena  uaed  in  thia  work. 

b.  Precracking 

The  following  atep  by  atep  guide  ia  provided  to  aaaiat 
operatora . 

1.  Before  turning  on  the  MTS  aachine  enaure  the  proper 
range  card  ia  inatalled  in  the  atrain  aignal  conditioner  for 
the  clip  gage  to  be  uaed. 

2.  Turn  on  power  to  all  equipaent  with  the  coaputer  being 
awitched  on  laat . 

3.  Load  and  run  ’’PRECRACK"  program  on  the  HP-9826  coaputer. 

4.  Select  range  acalea  on  MTS; 

exaaple:  10  v  *  ev/00  lba  20X  of  full  load  (range  #1) 

10  v  *  0.02  in  10X  of  full  clip  gage  (range  #4) 

10  v  »  2.5  in  50X  of  full  atroke  (range  #2> 

5.  Preaa  kO-key  on  coaputer  and  enter  apeciaen  data  as 
requeated . 

6.  Preaa  k2-kay  and  enter  converaion  data  aa  requeated. 

7.  Preaa  kS-key  to  obtain  a  table  of  COD  readinga  for 
varioua  loada  and  crack  lengtha. 

8.  Set  READOUT  knoba  on  the  MTS  Controller  to  be: 
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top  *  load 


middle  *  strain 
bottom  ”  atroka 

Sat  all  to  <♦)  polarity.  Sea  Figure  Al.  This  enaurea 
channels  of  the  MTS  aachlna  are  properly  aligned  with  the 
data  acquisition  ayatea. 

9.  Set  MTS  Halt  detector  awltchea  baaed  on  the  Information 
just  generated  by  the  program.  Limit  switch  settings  are 
determined  by  the  simple  formula: 

Limit  switch  *  L  *  10  /  FSR 


where 

L  *  desired  limit  in  English  units 
FSR  ■  full  scale  range  of  current  operating 
being  used  in  English  units 
example  "PRECRACK"  determined: 

Paax  *  1668  lbs  set  load  limit  to  1600  lbs 
for  specimen  HY80-SB 

load  limits: 

upper  limit  -  small  positive  load  for  example  40  lbs 

(should  never  be  positive) 

♦40  lbs  »  10  v  /  4000  lbs  *  *0.1  v 
therefore  set  upper  limit  knob  to  ♦O.l  v 

lower  limit  -  1600  lbs  maximum  load 

-1600  lbs  •  10  »  /  4000  lbs  -  -4.0  v 
therefore  set  lower  limit  knob  to  -4.0  v 
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•train  liaita 


uppar  Halt - 0.01  in  bayond  aaxiaua  axpactad  during 

pracracking 

♦•0.01  in  •  10  v  /  0.02  in  *  ♦5.0  v 

lowar  liait  -  aoaa  aaall  valua  for  axaapla  -0.1  v 

(ahould  never  ba  nagativa) 

atroka  liaita: 

uppar  liait  -  1.5  in  to  allow  claaranca  for  installing 

spaciaan  and  yat  atop  tha  MTS  if  thia 
liait  ia  raachad 

*1.5  in  •  10  v  /  2.5  in  »  *6.0  v 

lowar  liait  -  0.25  in  of  coapraaaiva  actuator  aovaaant 

ia  aora  than  sufficient  for  pracracking 
-0.25  in  *  10  v  /  2.5  in  *  -1.0  v 

10.  Adjust  tha  uppar  roller  supports  as  required  to  obtain  a 
•pan-to-width  ratio  (S/W)  of  4.0. 

11.  Install  spaciaan  (with  tha  clip  gaga  already  installed) 
using  alignaant  collars  to  properly  canter. 

12.  Zero  tha  load  and  strain  voltages. 

13.  Reset  and  clear  all  liait  switches  (all  graan  lights  on 
controller  panel  should  ba  showing). 

14.  Using  load  control  energize  hydraulics  and  apply  a  low 
(<100  lbs)  coapressiva  load  to  the  apeciaen  by  SLQWLjY 
turning  tha  SETPOIlfT  knob  counter-clockwise. 
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15.  Slowly  dacraaa  tha  coapraaalva  load  on  tha  apaclaan  to 
batwaan  5  and  10  lba  by  turning  tha  SETPOINT  knob  clockwiaa 
and  than  zaro  tha  atroka  voltaga  raading. 

YOU  ARE  NOW  READY  TO  OBTAIN  AN  UNLOADING  COD  COMPLIANCE 
MEASUREMENT  OF  THE  CRACK  LENGTH 

16.  Praaa  k4-kay  on  tha  coaputar  and  procaad  with  taking 
data . 

17.  Slowly,  and  aa  aaoothly  aa  poaaibla  incraaaa  tha  load  to 
approxiaataly  500  lba  and  raturn  to  approxiaataly  20  lba 
anding  tha  loading  cycla  with  a  alight  (10  lba)  incraaaa  to 
trip  tha  coaputar  out  of  tha  data-taking  loop. 

Tha  coaputar  will  diaplay  all  part inant  crack  langth 
inforaation  and  aak  if  you  want  anothar  aaaauraaant.  You 
aay  rapaat  thia  procaaa  aa  of tan  aa  you  lika,  juat  ba  aura 
tha  aaxiaun  load  ia  lowar  than  that  raquirad  to  axtand  tha 
crack . 

18.  Haka  nacaaaary  adjuataanta  to  tha  MTS  auch  that  tha 
atrain  liait  awitch  will  trip  tha  MTS  whan  tha  crack  axtanda 
to  SOX  of  tha  daairad  axtanaion.  Thia  ia  datarainad  by 
intarpolating  raaulta  froa  tha  tabla  obtainad  aarliar.  ( Saa 
Stap  7) . 

NOTE:  Aa  tha  crack  propagataa  tha  accaptabla  aaxiaua 
load  dacraaaaa.  For  tha  apaciaan,  u'  ^0-5B,  uaad  to  taat. 
thia  prograa  a  Paax  *  1000  lba  waa  auitabla  to  initiata  tha 
crack  and  propagata  it  to  SOX  of  tha  daairad  axtanaion 
(a  »  0.506  in) . 
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Example : 

SOX  crack  axtanaion  ■  crack  langth  (a)  of  0.506  in 
froa  tabla: 

COD  •  1.7  volta  at  1000  lba  and  a  ■  0.306  In 
Tharafora  aat  UPPER  STRAIN  LIMIT  SWITCH  to  *1.7  v. 

YOU  ARE  NOW  READY  TO  BEGIN  CYCLIC  LOADING 

19.  Satup  MTS: 

DISPLAY: 

a.  Satup  to  raad  aaxiaua  and  ainiaua  load  in  lba. 
FUNCTION  GENERATOR: 

a.  CONTROL  MODE:  Raaota 

b.  RATE  l:  lO  Hz 
C.  RATE  2:  N/A 

d.  HOLD  BUTTON:  In 
a.  BREAKPOINT:  N/A 

f.  HAVER  SINE*.  In 

g.  INVERT*.  In 

CONTROLLER  : 

a.  SPAN  l:  0.0 

b.  SPAN  2.*  0.0 

COUNTER : 

a.  COUNTER  INPUT:  Oscillator 

b.  COUNTER  MULTIPLIER:  XlOO 

c .  Praaa  RESET 

20.  Slowly  incraaaa  tha  SETPOINT  to  Pain. 

21.  Praaa  tha  RUN  button  on  tha  CONTROLLER  and  than  ralaaaa 
tha  HOLD  button  of  tha  FUNCTION  GENERATOR. 

22.  Slowly  incraaaa  tha  apan  of  tha  cyclic  loading  uaing 
SPAN  1  knob  to  tha  daairad  Paax. 
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Tha  NTS  will  continua  cyclic  loading  until  it  ia 


manually  atoppad  or  a  limit  datactor  ia  trippad.  Moat 
likaly  tha  COD  limit  datactor  will  trip  at  which  tiaa  tha 
machina  will  will  atop  and  unload  tha  apaciman. 

23.  A  naw  crack  langth  maaauramant  can  now  ba  obtainad 
ualng  tha  aama  manual  procaaa  aa  daacribad  in  Stap  16  and 
Stap  17. 

24.  Raadjuat  limit  awitchaa  and  raauma  fatigua  loading  aa 
dona  in  Stapa  18  through  22 . 

25.  Continua  thia  procaaa  until  tha  crack  raachaa  tha 
daalrad  langth. 

C.  J- INTEGRAL  TEST 

Tha  following  atapa  ara  raquirad  to  run  a  J-intagral 
taat.  Thay  ara  vary  aiailar  to  thosa  uaad  in  pracracking. 
Tha  major  changa  ia  that  a  ramp  function  undar  atroka 
control  ia  now  uaad  to  control  tha  MTS  machina. 

1.  Bafora  turning  on  tha  MTS  machina  anaura  tha  propar 
ranga  card  ia  inatallad  in  tha  atrain  aignal  condi tionar  for 
tha  clip  gaga  to  ba  uaad. 

2.  Turn  on  powar  to  all  aquipmant  with  tha  computar  baing 
awitchad  on  laat. 

3.  Load  and  run  **J_ZNTGL"  program  on  tha  HP-9826  computar. 

4.  Salact  ranga  acalaa  on  MTS; 


axampla 


10  v  ■  4000  lba  20*  of  full  load  (ranga  #3) 


10  v  *  0.02  In  10*  of  full  clipgaga  (rang*  #4) 

10  v  ■  0.3  in  10X  of  full  strok*  (rang*  #2) 

5.  Pr*aa  k0-k*y  on  coaputar  and  *nt*r  ap*cia*n  data  a* 
r*qu*st*d . 

6.  Praaa  kl-k*y  and  antar  convaralon  data  aa  raquaatad. 

7.  Praaa  k3-kay  and  follow  inatructiona  for  craating  a  data 
fila  on  an  initializad  data  dlakatta.  Saa  HP-Mannual  on  how 
to  initializa  a  dlakatta  if  nacaaaary. 

8.  Praaa  k3-kay  to  aatup  tha  plottar. 

9.  Praaa  kS-k*y  and  obtain  tha  « ixiau>  load  you  aay  apply 
whila  aaaauring  aO. 

YOU  ARE  NOW  READY  TO  SETUP  THE  NTS  MACHINE 

10.  Sat  READOUT  knobs  on  tha  MTS  Control lar  to  b*: 

top  »  load 
aiddl*  *  strain 
bottom  *  strok* 

Sat  all  to  (♦>  polarity.  Saa  Figura  A1 . 

11.  Sat  NTS  limit  datactora  awitchaa. 

axaapla: 

Pmax  *  S93  lbs  for  HY80-5B  (saa  Appandix  H) 
load  limits: 

uppar  limit  -  small  poaitiva  load  (40  lba> 

(should  navar  ba  poaitiva) 

+40  lba  •  10  v  /  4000  lbs  *  +0.1  v 

lowar  limit  -  895  lba  coapraaaion  maximum 

-893  lba  •  10  v  /  4000  lba  -  -2.123  v 
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strain  Halts 


uppsr  Halt - want  to  bs  abla  to  raad  full  seals 

on  rango  #2  <0.1  in) 

♦O.lin  *  10  v  /  0.1  in  *  ♦10  v 

lower  Halt - a  vary  saall  valus  ast  to  -0.1  v 

C  should  nsvsr  bs  nsgativs) 

stroks  liaita: 

uppsr  liait  -  full  seals  (♦lO.O  v>  on  this  aost 

aansltivs  seals 

lowar  liait  -  a  asxiaua  coaprsssion  of  0.2S  in  is 

aufficisnt  for  ths  tsst  and  will  atop 
ths  actuator  bsfors  it  can  causs  any 
ssrious  daaags  to  ths  spsciaan  holdsr 
-0.25  in  *  10  v  /  0.5  in  ■  -5.0  v 

12.  Adjust  ths  uppsr  rollsr  supports  as  rsquirsd  to  obtain  a 
span-to-wldth  ratio  of  4.0. 

13.  Install  ths  spsciasn  (with  ths  clip  gags  slrssdy 
installsd)  using  ths  allgnaant  collars  to  propsrly  csntsr. 

14.  Zsro  ths  load  and  strain  voltagss. 

15.  Rsast  and  clsar  all  liait  switchsd  (all  grssn  lights  on 
control lsr  pansl  should  bs  showing) . 

16.  Using  load  control  snsrglzs  hydraulics  and  apply  a  low 
<<100  lbs)  eoaprssslvs  load  to  ths  spsciasn  by  SLOWLY 
turning  ths  SETPOINT  knob  eountar-clockwiaa. 

17.  Dscroass  ths  load  to  bstwssn  5  and  10  lbs  and  zsro  ths 
stroks  voltaga. 


46 


18.  Adjust  tha  MTS  to  tha  following  aattinga: 

DISPLAY: 

a.  Satup  to  raad  load  In  lba  and  atroka  in  lnchaa. 
FUNCTION  GENERATOR: 

a.  CONTROL  MODE:  Raaota 

b.  RATE  l:  8000  (aac) 

aa  datarainad  by:  daalra  0.005  in/ain  loading  rata 
tharafora; 

0.5  in  (full  acala)  /  0.005  in/aia  •  80  aac/ain  *  6000  aac 

c.  RATE  2:  N/A 

d.  HOLD  BUTTON:  In 
a.  BREAKPOINT:  N/A 

f.  RAMP  BUTTON:  In 

g.  invert:  IN 

CONTROLLER: 

a.  SPAN  l:  10.0  (full  acala) 

b.  SPAN  2:  0.0 

COUNTER:  N/A 

YOU  ARE  NOW  READY  TO  MEASURE  THE  INITIAL  CRACK  LENGTH 

19.  Tha  coaputar  will  bagin  taking  data  aftar  the  'CONTINUE-' 
kay  la  praaaad.  Tha  MTS  will  bagin  loading  tha  apaciaan 
aftar  tha  MTS'  RUN  awltch  ia  praaaad  and  tha  HOLD  button  ia 

ralaaaad. 

20.  Whan  tha  daairad  aaxiaua  load  (approxiaataly  500  lba)  ia 
raachad;  dapraaa  tha  HOLD  button,  awltch  to  load  control, 
and  aanually  dacraaaa  tha  load  (to  approxiaataly  20  lba)  by 

turning  tha  SETPOINT  knob  clockwlaa.  Aa  with 
pracracking  you  auat  and  tha  unloading  with  a  aaall  lncraaaa 
in  load  (10  lba  froa  whara  you  atop)  to  aignal  tha  coaputar 
you  hava  coaplatad  tha  load /unload  cycla.  Tha  coaputar  will 
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plot  the  data  aa  you  go,  anaura  you  ramain  on  tha  linear 
portion  of  tha  loading  curva. 

21.  Tha  computer  will  diaplay  all  tha  pertinent  crack  length 
inforaation.  You  aay  repeat  thia  operation  by  switching 
back  to  atroka  control  and  repeating  Stepa  19  and  20  aa 
often  aa  you  like  aa  long  aa  you  reaain  on  the  linear 
portion  of  tha  loading  curva. 

22.  After  the  computer  haa  atorad  the  daaired  initial  crack 
length  (a0>  aeaaureaent  on  data  diskette,  you  are  ready  to 
begin  propagating  the  crack. 

23.  Ensure  you  are  in  atroka  control  with  near  zero  (<10 
lba)  load  and  tha  RUN  light  ia  on  with  the  HOLD  button 

depressed . 

24.  Press  the  k7-key  on  the  computer  follow  instructions  and 
proceed  to  collecting  data  (data  acquisition  system  will  be 
continuoaly  switching  channels  and  the  plotter  will  be 
plotting),  now  release  the  HOLD  button  on  the  MTS. 

25.  When  you  reach  a  point  where  you  wish  to  unload  the 
specimen;  press  the  HOLD  button,  switch  to  load  control,  and 
slowly  decrease  tha  load.  The  computer  will  beep  when  you 
have  unloaded  the  specimen  by  10X  of  the  expected  maximum 
load.  Switch  back  to  stroke  control  and  release  the  HOLD 
button  to  reload  the  specimen. 

26.  When  the  load  returns  to  tha  point  from  which  the 
unloading  began  the  computer  will  display  and  printout  all 
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the  information  it  ham  determined  with  regards  to  the 
currant  unloading  cycle. 

27.  Thia  procaaa  of  awitching  control  aodaa  (Stapa  25  and 
Stap  26)  ara  rapaatad  for  avary  unloading  cycla  until  the 
you  decide  to  atop  by  praaaing  tha  k9-key  on  the  coaputar  or 
one  of  tha  liait  detectors  shuta  off  tha  MTS  aachina. 
Remember,  you  auat  have  at least  four  data  points  between  tha 
offsets  one  of  which  lias  near  tha  blunting  line  on  the  J-R 
curve . 

2d.  The  k9-key  interrupts  tha  coaputar  program  and  tells  it 
to  stop  taking  data  and  write  tha  data  it  has  collected  on 
tha  data  diskette. 

29.  The  coaputar  will  than  display  a  table  of  the  collected 
J  versus  delta_a  and  ask  if  you  desire  a  plot.  Siaply  follow 
tha  directions  froa  the  coaputar  and  you  will  obtain  the  J-R 
curve  and  tha  value  of  Jic. 

D.  POST -TEST 

The  poat-taat  includes  var if ying  the  final  crack  length, 
and  validating  the  other  paraaatars  as  discussed  in  ASTM 
Standard  E&13-81  such  as: 

bi  and  Bain  >  25  *  J ic  /  Fa 

where 

bi  *  uncrackad  ligament  after  pracracking 
Bain  ■  minimum  apaciaan  thickness 
Fs  »  flow  stress 
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and  that  tha  alopa  of  tha  linaar  regreaaion  fit  to  tha  data 
la  iaaa  than  tha  flow  atraaa  (dJ/da  <  Fa).  Thia  data  ia 
obtainad  diractly  from  tha  *‘J_INTGL“  prograa  output. 

Haat  tinting  tha  apeciaan,  10  ainutaa  at  300C  for  moat 
ateela,  aida  in  tha  viaual  idantif ication  of  tha  amount  of 
crack  axtanaion.  Aftar  tha  apaciman  ia  ramoved  from  tha 
ovan  and  air  coolad*  placa  it  in  liquid  nitrogan  to  assist 
in  obtaining  a  brittla  fractura.  Aftar  breaking  tha 
apaciman  apart*  placa  tha  piacaa  in  alcohol  whila  returning 
to  room  tamparatura.  Thia  will  prevant  water  vapor  from 
condanaing  and  fraazing  on  tha  aurfaca  and  minimize 
oxidation. 

A  photographic  anlargaaant  of  tha  aurfaca  can  now  ba 
obtainad  and  tha  crack  langth  can  eaaily  ba  verified.  The 
final  crack  axtanaion  muat  ba  within  15*  of  that  recorded 
during  tha  taat. 
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Figure  A1 .  MTS  Control  Panel 


APPENDIX  B 

TEST  RECORD  SHEET 

THREE  POINT  BEND  SPECIMEN 

TEST  REPORT 

SPECIMEN  I.D. 

MATERIAL 

ORIENTATION 

Da  ca 

Operator 

_  Taat  Taap _ 

f Loaa  pt.) 


Ha  • 

Baaa  ■ 

Bain  ■ 

Ya  - 

Ut*  - 

a 

4 

u 

Polaaon'a  ratio  • 

Elaatlc  Hodulua  • 

52 


APPENDIX  C 
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J  INTGL  FLOW  CHART 


Ml  *  PRECRACKING  PROGRAM  PGR  THREE  of]INr 

20  ’  BEND  SPECIMEN.  THIS  PROGRAM  INCORPORATES 

30  !  THE  USE  OF  THE  FOLLOWING  EQUIPMENT: 

40  »  1.  HP-9826  COMPUTER 

50  !  2.  HP-3497A  DATA  ACQUISITION  SYSTEM 

60  •  3.  HP -26 71 G  THERMAL  PRINTER 

70  !  4.  MfS  MACHINE 

80  ! 

90  *  THE  PROGRAM  USES  BOTH  ENGLISH  AND  METRIC 

100  !  UNITS.  ALL  METRIC  VARIABLES  ARE  DENOTED 

110  !  WITH  AN  n»  IN  THEIR  NAME  le  Wm-W[DTH  IN 

120  1  METRIC  UNITS  (in  IN  THIS  CASE). 

130  ! 

140  *  THIS  PROGRAM  WAS  WRITTEN  BY: 

150  *  LCDR  w.  k.  tritchler.  usn 

160  !  VERSION  I  .0  DATE  11/33 

1 70  * 

180  ! 

190  * 

200  COM  /J  intgl/  FI 
210  ! 

220  1  DIM  Lodm<2000 >. Oef Ira< 2000) . Codmt 2000 >  these  arrays  util  be  dimensioned 

230  !  required  in  the  New_a  routine. 

240  !  Lodm< I >  -  LOAD  IN  NEW  TOMS 

250  '  Detlm<I)  -  DEFLECTION  IN  mn 

250  !  Codm< I )  -  CRACK  OPENING  DISPLACEMENT  IN  mm 

270  ' 

230  DIM  Coet  <6> ,G<6) .A0<  TOO) 

290  DUMP  DEVICE  IS  706 
300  Dvm-709 

310  CLEAR  Dv«i 

320  PRINT  CHRS< 12)  !  CLEARS  CRT 

330  PRINT  -• 

340  PRINT  "  PRECRACKING  PROGRAM- 

350  PRINT  -  -  VERSION  1.0" 

360  PRINT  — 

370  PRINT  "  WRITTEN  BY  LCDR  W.K.  TRITCHLER" 

380  PRINT  — 

390  PRINT  “  PLEASE  SELECT  A  lr -KEY- 

400  * 

a  I  o  *  . . . . . . . 

420  Begin:  ? 

430  ON  KEY  0  LABEL  “SPEC  DATA”  GOSUB  Spec  data 

440  QN  KEY  2  LABEL  “C0NV_DATA"  GOSUB  Convlaata 

450  QN  KEY  4  LABEL  ”NEW_A"  GOSUB  Ne*»_a 

460  ON  KEY  5  LABEL  ”a_TABLE"  GOSUB  A_tajble 

470  * 

490  ! 

500  Spin:  •  WAITS  FOR  KEY  INPUT 

510  GOTO  Spin 

520  * 

530 

540  * 

550  Spec_data:  *  INPUTS  REQUIRED  SPECIMEN  DATA 

56U  PRINT  CHRS< 12)  !  CLEARS  CRT 

570  PRINT  "INPUT  SPECIMEN  IDENTIFICATION  < ID > : ’* 

580  INPUT  OS 

590  PRINT  "" 
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600  PRINT  "J-INTE6RAL  TEST  for  “  ;DS 
6 1 0  PRINT 

620  PRINT  "INPUT  SPECIMEN  DATA  USING  ENGLISH  UNITS  (LBS,  INCHES.  *tc.>" 

630  PRINT  "" 

640  PRINT  "WHAT  IS  THE  SPECIMEN'S  WIDTH.  NOTCH  LENGTH.  Bnax .  8>tn  (THICKNESS* 
?•* 

650  INPUT  W ,  A  .  8majc .  3m i  n 

660  PRINT  "" 

670  PRINT  "WHAT  IS  THE  SPECIMEN'S  HALF  SPAN  AND  POISSON'S  RATIO'*" 

680  INPUT  Hs.Nu. 

630  PRINT  "" 

700  PRINT  "WHAT  IS  THE  SPECIMEN'S  ELASTIC  MODULUS.  TIELD  STRENGTH  AND  ULT 

IMATE  STRENGTH*" 

710  INPUT  E.Ys.Uts 

720  PRINT  CHRS02)  !  CLEARS  CRT 

730  Fs-( Ys*Uts) /2 

740  PRINT  "USING  ENGLISH  UNITS  < in . lbs .psi >“ 

750  PRINT  "THE  FOLLOWING  HAS  BEEN  ENTERED  for:  ”;DS 
750  PRINT  “WIDTH  -";W:"  NOTCH  LENGTH  *";A 
770  PRINT  “Bmax  ’"iSma*:"  8mm  *”;Bmin 

780  PRINT  "HALF  SPAN  POISSON'S  RATIO  *":Nu 

790  PRINT  "YIELD  STRENGTH  -";Y<5;"  ULTIMATE  TS  -”;Uts 
800  PRINT  "ELASTIC  MODULUS  FLOW  STRESS  -";F s 

810  PRINT  "" 

820  PRINT  "THIS  PROGRAM  ALLOWS  NO  EASY  RECOVERY ,  IF  ANY  DATA  IS  INCORRECT  YOU 
MUST  RE-ENTER  ": 

820  PRINT  "EVERYTHING." 

840  PRINT  — ’ 

850  PRINT  "IS  ALL  DATA  CORRECT*" 

860  INPUT  HS 

870  IF  HS--NO"  OR  HS-"N"  THEN  550  !  REPEATS  Spec_data 

880  PRINT  "" 

890  PRINT  "DO  YOU  WANT  A  HARD  COPY?" 

900  INPUT  HS 

910  IF  HS-"N"  OR  HS-"N"  THEN  1060 
920  ! 

930  PRINTER  IS  706  !  TOGGLES  PRINTER  TO  THERMAL  PRINTER 

940  PRINT  "" 

950  PRINT  "USING  ENGLISH  UNITS  Un.lbs.psH  THE  FOLLOWING  INFORMATION" 

9G0  PRINT  "HAS  BEEN  ENTERED  FOR:  "-.DS 
970  PRINT  "" 

980  PRINT  "WIDTH  -";W:"  NOTCH  LENGTH  -";A 

990  PRINT  "Boaj  •"iBmax:”  Bmin  *”;8mm 

1000  PRINT  "HALF  SPAN  -":Hs:"  POISSON'S  RATIO  -";Nu 
1010  PRINT  "YIELD  STRENGTH  -";Ys,-”  ULTIMATE  TS  -”;Uts 
1020  PRINT  "ELASTIC  MODULUS  -";E;“  FLOW  STRESS  -";Fs 
1030  PRINT  — 

t040  PRINTER  IS  1  !  TOGGLES  PRINTER  BACK  TO  CRT 

1050  » 

1060  PRINT  CHR5< 12)  !  CLEARS  CRT 

1070  * 

1080  !  CONVERSION  TO  METRIC  UNITS 

1090  Conlen*25.4  !  1  in  •  25.40mm 

1100  U*-W»Conl«n 

1110  Am-A»Conl«n 

1120  BnaxaaBa*xaConl«n 

1130  Bminn-BminoConlen 

1140  Hs*“Hs,*Conlen 

1150  Conpress-6. 89475293  !  Ipsi  •  6 .89475293kPa  (HP  PROGRAMING  BOOK) 

1160  E»-£«Conpr9SS 
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1 

M  70  Ysm-Ys-Conoress 
1180  Utsn-Uts-Conpress 
1190  Fsa^Fs-Conpress 
1200  • 

1210  PRINT  "CONVERTING  THIS  DATA  TO  METRIC  UNITS  (mm.N.KPa)  for  ";DS;"  TIEL 
OS:" 

1220  PRINT  "UIDTH  -":W«:"  NOTCH  LENGTH  -";Am 
1230  PRINT  "Bmax  : Bmaxm : "  Bmin  -”:8minin 

1240  PRINT  "HALF  SPAN  POISSON'S  RATIO  -";Nu 

1250  PRINT  "YIELD  STRENGTH  -••;Ysm:"  UTILMATE  TS  -";Uts«i 

1260  PRINT  "ELASTIC  MODULUS  FLOW  STRESS  -";Fsn> 

1270  PRINT  ”M 

1230  PRINT  "DO  TOU  WISH  TO  HAVE  A  PRINT  OUT  OF  THIS  DATA-?" 

1290  INPUT  G3 

1300  IF  GS-"N"  CR  GS-"NO"  THEN  1410 
1310  1 

1320  PRINTER  IS  706  ?  TOGGLES  TO  THERMAL  PRINTER 

1330  PRINT  "CONVERTING  THIS  DATA  TO  METRIC  UNITS  (mm.N.KPa)  FOR:  ";DS 

1340  PRINT  "WIDTH  -":Wm:"  NOTCH  LENGTH  -";Am 

1350  PRINT  "Bmax  *":8maxm:"  8«un  *";Bminm 

1360  PRINT  "YIELD  STRENGTH  -":Ysm:"  ULTIMATE  TS  -”:Utsni 

1370  PRINT  "ELASTIC  MODULUS  -";£«;"  FLOW  STRESS  -";Fsm 

1380  PRINT  "" 

1390  PRINTER  IS  1  !  TOGGLES  PRINTER  TO  CRT 

1400  f 

1410  PRINT  CHR3 (12)  !  CLEAR  CRT 

1420  ! 

1430  Flag3-0 
1440  A 1 -A 
1450  GOSUB  Params 
1460  ! 

1470  RETURN 
1480  * 

1 490  ! . . 

1500  * 

1510  Nmu  a:  «.  THIS  ROUTINE  COMPUTES  NEW  CRACK  LENGTH  AND  NEW  PARAMETERS 

1520  ! 

1530  Bef  f  m- Bmaxm- (Bmaxm- Bmi  rim)  '2/Bmaxni  !  B  EFFECTIVE  FROM  ASTM  E813-81 

1540  02-1  !  INITIALIZES  COUNTER 

1550  PRINT  CHRS< 12)  !  CLEARS  CRT 

1560  PRINT  "THIS  ROUTINE  WILL  OBTAIN  CURRENT  CRACK  LENGTH" 

1570  PRINT  “  AND  NEW  PARAMETERS  FOR  PRECRACKING." 

1580  PRINT  “BEFORE  YOU  CAN  RUN  THIS  ROUTINE  YOU  MUST:" 

1590  PRINT  -  1.  ENTER  SPECIMEN  DATA" 

1600  PRINT  "  2.  ENTER  CONVERSION  DATA" 

1610  PRINT  “  3.  SETUP  MTS  FOR  MANUAL  LOADING  OF  THE"; 

1620  PRINT  “  SPECIMEN.” 

1630  PRINT  "  " 

1640  PRINT  ~  ARE  TOU  READY?" 

1650  INPUT  HS 

1660  IF  HS-"N"  OR  HS-'W  THEN  2450  !  RETURNS  TO  k-KEY  SELECTION 

1670  PRINT  CHR$< 12)  !  CLEARS  CRT 

1630  PRINT  "YOU  MAY  LOAD  AND  UNLOAD  SPECIMEN  AS  OFTEN  AS  YOU  LIKE  —  BUT  YOU  M 
UST  REMAIN  "; 

1690  PRINT  "BELOW  CURRENT  PMAX  OF":Pma* ;  "Lbs" 

1700  OIM  Lod(2000) .Oaf  1(2000) .Cod<2000) 

1710  DIM  Lod»(2000> .0»f 1»(2000) ,Cod«<2000> 

1720  PRINT  "WHEN  YOU  ARE  READY  TO  BEGIN  PRESS  THE  ’ENTER*  OR  'CONTINUE'  KEY." 

1730  INPUT  HS 

1740  PRINT  CHRS< 12)  !  CLEARS  CRT 
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!  USED  AS  COUNTER 
•  USED  AS  INDEX 


1750  K*0 

1 7G0  1*1 

1770  F laq 1 *0 
1780  Fiaq2-0 

1790  WHILE  FUql-0  *  ESTABLISHES  ONE  LOAD-UNLOAD  DATA  TAKING  LOOP 

1800  GOSUB  Data  acq 

1810  END  WHILE 

1820  Elaq2-0  !  RESETS  ELAG2 

1830  WHILE  FUq2-0 

1840  GOSUB  Data_acq 

1850  END  WHILE 

1360  • 

: 370  '  THIS  SECTION  CAN  BE  USED  TO  VIEW  THE  COLLECTED  DATA  3T  REMOVING  THE  RENA 

RF  CHARACTER  (!>. 

186'  !  FOR  1-1  TO  K 

1890  *  PRINT  USING  1960 : I ,Loda< I  > ,Def lm< I > ,Coda< I ) 

1900  1  IMAGE  X . 2D , 4X ,6D .0 . 4X ,30 . 70 , 7X . CD . 7D 

1910  •  NEXT  I 

1920  <  WAIT  5 

1930  K1-1 

1940  K3-< 

1950  GOSUB  Slooe  *  SLOPE  -  1/COD  COMPLIANCE 

1960  GOSUB  Cracit  lenqth  *  USES  COD  COMPLIANCE 
1970  1 

1980  A0<  D2) -Crack In/25 . 4  *  CONVERTS  TO  INCHES 

1990  A i *A0 ( D2 ) 

2000  * 

2010  I  FIND  95Z  CONFIDENCE  INTERVAL  FOR  CRACK  LENGTH 
2020  St  if  f cn-St  if  f«i*T9-U4 

2030  GOSUB  Crack  lenqth 

2040  Anax-Crack l«/25 .4  •  CONVERTS  TO  INCHES 

2050  Stif f™-Stiff«-2-T9*U4 

2060  GOSUB  Crack  lenqth 

2070  Amn-Crack  la/25.4  !  CONVERTS  TO  INCHES 

2080  * 

2090  ! 

2100  PRINT  CHRS<12)  *  CLEARS  CRT  .♦ 

2110  PRINT  "THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED:" 

2120  PRINT  "~ 

2130  PRINT  "CRACK  LENGTH  ; AO <D2> i n  FROM  MEASUREMENT  *";D2 

2140  PRINT  "WITH  95Z  CONFIDENCE  INTERVAL  FROM" ;  Am  n;"  TO";A»aji 
2150  PRINT  "~ 

2160  PRINT  “USING  COD  COMPLIANCE  0F:";Compi ;"in/Lb  -"  ;Co«.p  in :  "nwi/N" 

2170  PRINT  "WITH  A  CORRELATION  0F:";Correi FROM" ;K ; "DATA  POINTS" 

2180  PRINT  "" 

2190  PRINT  "00  YOU  WANT  A  HARD  COPY?" 

2200  INPUT  GS 

2210  IF  GS-"N"  OR  GS-"NO~  THEN  2340 
2220  1 

2230  PRINTER  IS  70S  •  TOGGLES  TO  THERMAL  PRINTER 

2240  PRINT 

2250  PRINT  "THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED:" 

2260  PRINT  "CRACK  LENGTH  -":A0<D2> :”tn  FROM  MEASUREMENT  *";D2 
2270  PRINT  "WITH  95ZC0NFIDENCE  INTERVAL  FROM“;A»in:"  TO" :Aa**: "in- 
2280  PRINT  "USING  COD  COMPLIANCE  OF :";Co»p I :"in/Lb  ;Co«p In : "»»/N" 

2290  PRINT  "WITH  A  CORRELATION  OF:";Correl ;"FROM":K;"  DATA  POINTS." 

2300  PRINT 

2310  PRINTER  IS  1  1  TOGGLES  PRINTER  TO  CRT 

2320  * 


59 


2330  PRINT  -* 

2340  PRINT  ••  00  YOU  WANT  ANOTHER  MEASUREMENT?’* 

2350  INPUT  FS 

2360  02-02* t  ’  INCREMENTS  COUNTER 

2370  IF  FS-’T*  OR  FS-’’TES’’  THEN  1670 
2380  ! 

2390  IF  A0<D2-1 >>Opfa  THEN  GOSUB  End_precracir  !  PRECRACKING  IS  COMPLETE 
2400  f 

2410  IF  AO < 02-  1 )  > . 4»0ela+A  THEN  FUq3-l  !  SETS  FLAG  INDICATING  IN  LAST  60Z  0 
F  PRECRACKING 
2420  ! 

2430  GOSUB  Para»s 
2440  ! 

2450  RETURN 
2460  ! 

2470  !  -------- . . 

2480  ! 

2490  Data_aca:  *  DATA  ACQUISITION  ROUTINE 

2500  OUTPUT  Ovm : ''VR5  AF 1  AL3" 

2510  * 

2520  OUTPUT  Dvm:"Al!  VTt’’  •  READS  LOAD 

2530  ENTER  Ovm:Lod<I> 

2540  Lodf»<I)-Lod<I)«Sli»<n 
2550  f 

2560  OUTPUT  Ovm: "A  12  VTf  ?  READS  COD 

2570  ENTER  Dvn:Cod«D 
2580  Codm< I)-Cod< I)"Sl«<2) 

2590  J 

2600  OUTPUT  Dvn:”AI3  VTt”  *  READS  DEFLECTION 

2610  ENTER  Dvm:Defl<I> 

2620  Def lm< I) -Def 1 < I>-SIm<3) 

2630  ! 

2640  !  TEST  DATA  TO  BREAK  OUT  OF  DATA  ACQ  LOOP 

2650  * 

2660  IF  1-1  THEN  2720  •  *  SKIPS  IF  FIRST  DATA  POINT 

2670  Lodif  fm-Lod«i<  I)-Lodm<  1-1 ) 

2680  IF  Lodi ffm< -25.0  THEN  Flagl-1  !  MUST  BE  UNLOADING 

2690  IF  Lodiff«>25.0  THEN  Flag2-1  !  MUST  BE  RELOADING. 

2700  Lodif  f<*-0 
2710  ! 

2720  1-1*1  !  INCREMENTS  INDEX 

2730  ! 

2740  K-K*1  !  INCREMENT  COUNTER 

2750  ! 

2760  RETURN 
2770  « 

2780  1 —————————————————————————————————————————— 

2790  ! 

2800  Crack_length:  *  CALCULATES  CRACK  LENGTH  USING  HUDAK  < DTNSRDC  PROG) 

2810  !  NOTE:  THIS  ROUTINE  USES  COD  COMPLIANCE  METHOD  VICE  DEFLECTION  COMPLIA 

NCE . 

2820  FOR  1-1  TO  6 
2820  READ  Coef<I> 

2840  NEXT  I 

2850  Coapln-1/Stiffn 

2860  C-2-W«»-B«f fw-Em-Co»pla/<Hs»« 1 000) 

2870  C-1/<SQR<C>*1> 

2880  G(T)-C 

2890  FOR  1-2  TO  5 

2900  G< I) -G< I- 1 ) -G<  1 ) 
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2910  NEXT  [ 

2920  F-Coe.'(l) 

2930  FOR  1-1  TO  5 

2940  F-F*Co*f<IH ) -G< I ) 

2950  NEXT  I 
2960  Crack lm-F«W» 

2970  RESTORE 

2980  OAT A  0.998265,-2  31662 . -  1 .80596 , 32 . 3 1 038 , -44 . 15665 . -52 . 67376 

2990  ! 

3000  RETURN 
3010  ! 

3020  . . 

3030  ! 

3040  Conv_data :  !  INPUTS  CONVERSION  DATA  FOR  MEASURING  DEVICES 

3050  PRINT  CHR$( 12)  !  CLEARS  CRT 

3060  PRINT  "INPUT:  LOAD  RANGE.  STRAIN  RANGE.  STROKE  RANGE” 

3070  PRINT  "" 

3080  PRINT  "  <8Y  PERCENT  ie.  10.20.50  OR  100>" 

3090  INPUT  Lr.Cr.Sr 
3100  PRINT 

3110  PRINT  "LOAD  RANGE  *  ":Lr 

3120  PRINT  "STRAIN  <COO>  RANGE  -  ":Cr 

3130  PRINT  "STROKE  (DEFLECTION)  RANGE  -  “:Sr 

3140  Lmax-20000  1  MAX  LOAD  RANGE  IN  (lbs). 

3150  Cmax- .200  !  MAX  COD  RANGE  IN  <in>. 

3160  Smax-5.0  !  MAX  STROKE  RANGE  IN  (in). 

3170  V--10  !  MAX  VOLTAGE  IN  (volts). 

3180  * 

3190  *  MAXIMUM  OPERATING  POINTS  ARE: 

3200  Olmax-Lmax-Lr/1 00 

3210  Ocmax-Cnax-Cr/ 1 00»< - 1 .0)  !  -I  CHANGES  SIGN 

3220  Os«aj.“S«ajt*Sr/1 00 
3230  ! 

3240  !  CONVERSION  CONSTANTS  ARE:  (ENGLISH  UNITS) 

3250  SKI  >-Olmax/V 
3260  SI (2 ) -Ocmax/V 
3270  S 1 ( 3 ) -Gsmax/V 
3230  !  CONVERTING  TO  METRIC: 

3290  Conlen-25.4  ?  25.4mm  *  lin 

3300  Conib-4.44822'615  !  4.448221615N  -  11b  (HP  PROGRAMING  BOOK) 

3310  Sl«i(  1 ) -S 1  ( 1  Xonlb 

3320  S 1«<  2) -S l (2) -Con  1 en 

3330  Sl«(3)-Sl  ( 3)-Con len 

3340  » 

3350  PRINT 

3360  PRINT  "- 

3370  PRINT  "TOUR  ENTRIES  HAVE  PRODUCED  THE  FOLLOWING  CONVERSION  DATA 

n 

3390  PR  TNT  ”” 

3390  PRINT  "FOR  LOAD:  ”;S1«< 1 > ;"NEWTON/VOLT  <";S1( 1 ) :"Lbs/V)” 

3400  PRINT  "" 

3410  PRINT  "FOR  COD:  ";Slm(2> :”m»/V  <“ ;S1 (2) : " in/V)" 

3420  PRINT  "” 

3430  PRINT  "FOR  OEFLECTION:  “;SI»(3) ;"««/V  (";SI(3> ;"in/V>" 

3440  PRINT  "“ 

3450  PRINT  "WOULD  TOU  LIKE  A  HARD  COPY?" 

3460  INPUT  HS 

3470  IF  HS-"N“  OR  HS-"NO"  THEN  3570 

3480  1 

3490  PRINTER  IS  706  *  TOGGLES  PRINTER 


61 


3500 
3510 
3520 
3530 
35«0 
3550 
3560 
3570 
3580 
3590 
3600 
36!  0 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3630 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 

39  TO 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 

40  tO 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 


PRINT  -• 

PRINT  -  CONVERSION  DATA” 

PRINT  "FOR  LQAO : " ;Sim<  t  > : "N/V  < " :S 1 n > : "Lbs/V > " 

PRINT  "FOR  CDD:":Slm<2> :"m«/V  < "  :  S  I  ( 2 ) :  ”  t  n/ V>  " 

PRtNT  "FOR  DEFLECTION:"  :SliM3>  :”n»m/V  (":SL<3>  :"m/V>" 

PRINTER  IS  1  ?  TOGGLES  PRINTER 

t 

PRINT  CHRS< 12) 

» 

RETURN 


Slop* :  *  LINEAR  LEAST  SOUARES  FIT 

PRINT  CHR$< 12)  t  CLEAR  CRT 

•  INITIALIZE  VARIABLES 

Sumx-U  f  SUM  OF  X  VALUES 

Su*x2-0  *  SUM  OF  X  SQUARED  VALUES 

Siuov-O  *  SUM  OF  Y  VALUES 

Sumv2-0  !  SUM  OF  r  SQUARED  VALUES 

Sumxy-0  !  SUM  OF  THE  PRODUCT 

FOR  I-<1  TO  K3  !  Kl-INDEX  OF  FIRST,  K3- INDEX  OF  LAST  DATA  POINT  USED. 

« 

X*Codm\ I ) 

Y-Looml I ) 

• 

Suunx  -Sujix  *X 
Sarny *Suoy »Y 
Swox2“Su»x2*X»X 
Suny2*Suay2*Y»Y 
Su«xy*Su*xy»X*t' 

NEXT  I 

K3-K3-P2  !  USED  TO  CALCULATE  NUMBER  OF  DATA  POTNTS  WITHIN  BOUNDS. 

K4-K3-K1M  *  K4- TOTAL  *  DATA  POINTS  USED  IN  CALC 

Gal  -Suj»x2-Sii»x“Su»x/K4 

Od2*Saaxy-Su0x*Sufiy /K4 

Qa3*Su*y2'Su»Y«Su»y /K4  ,-v- 

H-Qa2/Qa!  !  SLOPE 

» 

IF  M<0  THEN  4190  !  IF  SLOPE  <0,  BAD  DATA 

•  FROM  DTNSRDC  PROGRAM 
QJ-<K4»Su*x2-Su*x'2)/<K4»<K4-l )> 

Q2“<K4»Sujiv2'Su«y  '2>  /<K4»<K4  - 1  )  > 

Q3*<(C4*  1 J •<G2-M»H«Gt  )/<K4-2> 

Q4-SQR<Q3/<Q1-<K4~1>)> 

t 

B-<Su*y-M«Su*i>/K4  !  INTERCEPT 

t 

Corr«l-M-S0R<Q1/02> 

• 

Ga4-SQR<ABS<<Su»y2-B»Su»y-N-Su»xy>/<K4-2>>> 

Sig»aD*Qa4/SQR <  A8S<  Qa! ) > 

S igaaa-S igaax>»SQR(Suai2/K4 ) 

Stiff«-M  !  STIFF  -  SLOPE 

Comolm-I/M  f  COD  COMPLIANCE  -  1 /SLOPE 

Coup  l  -Co«pli»»<  4. 448221 615)725. 4  !  CONVERTS  TO  ln/LB 

i 

!  STUDENT  t  TEST 
U4-Q4 


62 


RE  ~'.RNS 


4 '00  T9-!. 36 

4!  U)  IF  K4> 1 20  THEN  «170 
4120  T9-2.1 

4! 30  IF  <4<20  THEN  4! 70  ’  RETURNS 

4140  N9-K4-2 

4 1 50  T9-N9/< -.S17109+N9*. 510239) 

4160  ' 

4170  RETURN 
4130  ' 

4t90  PRINT  "POOR  DATA--  SLOPE  <  0" 

4200  11-333333 . 3 

4210  Correi-Q 
4220  ! 

4230  RETURN 
4240  ! 

4250  . . - . - . 

4260  ! 

4270  Params:  •  THIS  ROUTINE  HILL  DETERMINE  THE  CURRENT  MAX  AND  HIM  LOAD  FOR 

FATIGUE  PRECRACKING 
4280  ! 

4290  !  NOTE  THE  USE  OF  ENGLISH  UNITS  DUE  MTS  READOUT  BEING  IN  POUNDS. 

4300  •  INITIALIZE  VARIABLES 

4310  Faw-0 

4320  Proax-0 

4330  Pnun-U 

4340  D®lp-0 

4350  Kma*p-0 

4360  Kminp-0 

4370  Delk-0 

4380  Oelke-O 

4390  * 

4400  Opta-.6-W  !  OPTIMUM  CRACK  LENGTH 

4410  Dela-Opta-Al  !  EXTENSION  REQUIRED 

4420  Dela50-Dela*< .5)*rt  !  CRACK  LENGTH  AT  502  OF  EXTENSION 

4430  ! 

4440  Pmax-IA/SJ-lBmn-iU-AirZ-Fs/IZ-HsM  !  FROM  ASTM  E8!3 

4450  IF  F laq3- 1  THEN  Pna* - < . 4 ) -Pmax  *  MAX  LOAD  DURING  LAST  502  OF  PRECR 

ACKING  (ASTM  E8I3> 

4460  Prain-Pmaa-  . 95-Paa*  !  FROM  ASTM  E813 

4470  Delp-Pna**Pi»in 
4480  * 

4490  !  DETERMINE  Delk  8ASED  ON  P  USING  ASTM  E399 

4500  * 

4510  Fawn-3-<AI/H)*.5«< 1 . 99* < A 1 /W)»< ! -A  I /«>•< 2 . 1 5-3 .93-AI/W+2 . 7-( Al/W) *2) ) 

4520  ! 

4530  FaMd-2*< I ♦2»A1/M>»< 1 -A l/U) *  1 .5 
4540  1 

4550  Faw-Fann/Faintl 
4560  * 

4570  * 

4580  K»a*p-< Pmaa«2-H« /< Bi»i n-W *  1  . 5 )  > -Pan  ■  FROM  ASTM  E399 

4590  K»  ino*< Pirn n-2-Hs/< 8fi  m-H ‘  1  . 5 )  >*Fa*j  !  FROM  ASTM  E399 

4600  Dalk-Kaaap-Kainp 
4610  > 

4820  »  DETERMINE  0«lk»  BASED  ON  MODULUS  FROM  ASTM  E813 

4630  IF  FUg3-0  THEN  D«lke-40000  '  DURING  EARLY  EXTENSION 

4640  IF  Flag3-1  THEN  D*lk«-< .001 )•£  *  DURING  LAST  502  OF  PRECRACKING  IRE 

F.  ASTM  E399  4  £81 3) 

4650  PRINT  "" 
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4660 
46  ru 
4630 
4630 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 


PRINT  "BASED  ON  CURRENT  INFORMATION:" 

PRINT  — * 

PRINT  "CURRENT  CRACK  LENGTH  : rt l ; " t n'* 

PRINT  "OPTIMUM  aG-":Gpta:”in" 

PRINT  "EXTENSION  REQUIRED  -".-Deia 

PRINT  "CRACK  LENGTH  AT  502  OF  EXTENSION  •" ; De la5Q : " in" 
PRINT  "Pmax  *“  ; Pmax  :  "Lbs  Pmin  *"  :  Pm i n  :  "Lbs" 

PRINT  "Kmaxo  -":Kmaxp:"  Kminp  *";Kminp 
PRINT  "DELTA  <  -";Delk  ;,,in  .5" 

PRINT  "DELTA'KE  *";Qelke;"in"  .5” 

PRINT  "FAW  *" ;fau  »  SERVES  AS  A  CHECK 

PRINT  •— 

PRINT  "rF  Oe Ik  >  Delke.  Pmax  MUST  9E  DECREASED" 

IF  Deik<DeUe  THEN  4900  !  SKIP  IF  OKAT 

!  COMPUTE  NEW  Pmax 

Deipl *<Delke/Fau/<2»Hs>»8min»W"1 .  5> 

Pmax 1 *0e Ip  I / . 95 

Pminl -Pmax  1  - . 95*Pmax 1 

Kmax I ■ < Pmax l*2*Hs/<Bmin«W'1 . 5  > ) *Fau 

PRINT  "THE  NEW  Pmax  BASED  ON  Delke  IS : " ; Pmax 1 ; "Lbs" 

PRINT  "NEW  Pam  :Pm i n  t  ;  "Lbs" 

PRINT  "NEW  DELTA  P  ;De Lpl ; "Lbs" 

PRINT  "NEW  Kmax  -":Kraax1 

f 

PRINT  "  Du  fOU  WANT  A  HARD  COPY1" 

INPUT  HS 


4920  IF  HS-"N"  OR  HS--NO"  THEN  5080 

4930  PRINTER  IS  706  *  TOGGLES  PRINTER 

4940  PRINT  "BASED  ON  CURRENT  INFORMATION  FOR  ";Q$;":" 

4950  PRINT  "" 

4960  PRINT  "CURRENT  CRACK  LENGTH  -”:Al;"in" 

4970  PRINT  "OPTIMUN  CRACK  LENGTH  -" ;Qpta : " t n" 

4980  PRINT  "EXTENSION  REQUIRED  -";Dela:"in" 

4990  PRINT  "CRACK  LENGTH  AT  502  OF  EXTENSION  •" ;De la50 : " in" 

5000  PRINT  "Pmax  •";P»ax:”Lbs  Pmin  *" ;Pni n : "Lbs” 

5010  PRINT  “Delp  •":0elp:"Lbs  Kmax  *":KmaxP 

5020  PRINT  "DEL TA_K  *":Delk :"in' .5  DELTA_KE  -";Delke;"m'.5" 

5030  IF  De Ik <0e Ike  THEN  5090 
5040  PRINT  "" 

5050  PRINT  "NEW  LOADS  BASED  ON  DELTA_KE  ARE:" 

5060  PRINT  "Pmax  *"  ;Pmax  1  ;  "Lbs  Pmn  *" ;Pmin1 ;"Lbs” 

5070  PRINT  "DELTA  P  -";Delpt ;"Lbs  Kmax  -";Kmaxt 

5080  PRINT  "" 

5090  PRINTER  IS  1  !  TOGGLES  PRINTER  TO  CRT 

5100  PRINT  "" 

5110  PRINT  "MAKE  THE  NECESSART  ADJUSTMENTS  BEFORE  CONTINUING." 

5120  PRINT  "WHEN  COMPLETED  PRESS  ’CONTINUE'." 

5130  INPUT  CS 

5140  * 

5150  RETURN 

5160  ! 

5170  ’ 

5180  ! 

5t90  A  table:  !  PRODUCES  TABULATED  VALUES  FOR  LOAD  vs  COD  VALUES  AT  VARIQU 

S  CRACK  LENGTHS 
5200  ! 

5210  PRINT  "BEFORE  YOU  CAN  RUN  THIS  SUBROUTINE  YOU  MUST  ENTER:" 

5220  PRINT  "  1.  SPECIMEN  DATA" 

5230  PRINT  "  2.  CONVERSION  DATA" 
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5240  PRINT 

5250  PRINT  "ARE  YOU  READY-)" 

5260  INPUT  HS 

5270  IF  HS-"N"  OR  HS-"NQ"  THEN  5550  !  RETURNS  TO  It -KEY  SELCETION 

5280  ' 

5290  BeFT'Bmax - < Bma* -Bmi n) ~2/Bmaj  ?  IAM  ASTM  E313-31 

5300  PRINT  "8EFF  -";3eff 
5310  ! 

5320  !  USING  CRACK  LENGTH  EQUATION  FROM  DTNSRDC  PROGRAM  CALC  CRACK.  LENGTH  FOR 

VARIOUS  VALUES  OF  U 

5330  AOO* . 998265 

5340  A1--3. 81662 

5350  A2--1. 80596 

5360  A3-32. 31038 

5370  A4--44. 15665 

S380  A5--52. 67876 

5390  FOR  U-.07  TO  .155  STEP  .005 

5400  Ar-A00»A1 •U»A2-U‘2*A3»U'3*A4*U‘ 4*A5»U‘ 5 

5410  CU-Ar-W 

5420  PRINTER  IS  706  *  TOGGLES  TO  THERMAL  PRINTER 

5430  PRINT  “U  ; U 

5440  PRINT  "a/W  CRACK  LENGTH  - ** : Ck  l  :"in" 

5450  PRINT  "LOAD  (lbs)  COD  < m)  COD  (Volts)” 

5460  FOR  Lodi *200  TO  1800  STEP  100 

5470  C*Bef f *H*£*2/Hs 

5480  Codl *Lodl •< ( I -U)/U) '2/C 

5480  Codv-Codl /Sl(2) 

5500  PRINT  Lodi .Codl .Codv 

5510  NEXT  Lodi 

5520  NEXT  U 

55 30  PRINTER  IS  I  !  RETURNS  TO  USING  CRT  AS  PRINTER 

5540  1 

5550  RETURN 
5560  ! 

5570  ! . - . — . . — 

5580  * 

5590  End_precra cV.  !  END  OF  PRECRACKING 

5600  * 

56 1 0  PRINT  "  PRECRACKING  IS  COMPLETED?" 

5620  PRINT  "" 

5630  PRINT  "FINAL  CRACK  LENGTH  -";A0<D2-!> 

5640  PRINT  "CORRELATION  OF  DATA  *";Correl 

5650  PRINT 

5660  PRINT  "  REMOVE  SPECIMEN  FROM  MTS.” 

5670  ! 

5680  END 
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APPENDIX  E 


J  INTGL  LISTING 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
HO 
120 
120 
140 
150 
160 
1  70 
180 
190 
200 
2'0 
220 
220 
240 


INTEGRAL  FRACTURE  'GU6HNE2C  PROGRAM 
FOR  'hAEE  POINT  BEND  specimen.  i>:_ 
PROGRAM  INCORPORATES  THE  USE  OF  THE 
FOLLOWING  E3U  IP  TMEN  t : 

1 .  HP-9826  COMPUTER 

2.  HP-3497A  DATA  ACOUISITION  GYSTEM 
2.  HP-  3437A  SYSTEH  VOL  rM£  TER 

4.  HP-26710  THERMAL  PRINTER 

5.  HP-7225B  PLOTTER 

THIS  PROGRAM  HAS  WRITTEN  BY: 

LCDR  h.  K.  TRITCHlER.  USN 
VERSION  1.0  DATE  It  733 


COM  7  J_ l n tq i /  FI 

t 

DIM  Lod  79000)  .Get  1(9000).  Cod  <  3000  > 

1  NOTE:  Lod.  Det  1  AND  Cod  ARE  ACTUAi.LT  DIMENSIONED  IN 
1  Lod<  I)  *  LOAD 
>  Det  I<I>  -  DEFLECTION 

•  Coa< I )  -  CRACK  OPENING  DISPLACEMENT  (COD) 


250  DIM  AO < 50 ) . Pm i nO< 50 > . AmaxO ( 50 > , Como  1 0 ( 50 > . Cor  re i 0 < 50 > 
260  DIM  Area.9 <  1  00  )  , A 1  ( 1  00  >  . Coe t  < 6 )  . S< 6  ) 


270 

280 

220 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 


DIM  J9<  100 >. Delta  a<  100)  .Mdef'M  100) 
DIM  OataS< 1 :«)( 1 01 


DUMP  DEVICE  IS 
Ovm- 709 
CLEAR  Ovm 
PRINT  CHRS< 1 2 ) 
PRINT  •— 

PRINT  ~ 

PRINT  " 

PRINT  " 

PRINT 
PRINT  " 


70b  !  THERMAL  PRTNTER  ADDRESS 

!  DATA  ACQUISITION  ADDRESS 

!  CLEARS  CRT 

J- INTEGRAL  TEST  PROGRAM" 
VERSION  1.0" 

WRITTEN  BY  LCDR  W.K.  TRITCHLER" 

.c 

PLEASE  SELECT  A  Ic-KEY" 


Begin:  1 

ON  KEY  0  LABEL  "SPEC_0ATA"  GQSUB  Spec  data 
ON  KEY  1  LABEL  "CONV  DATA"  GOSUB  Conv_data 
ON  KEY  2  LABEL  "OAT  FILE"  GOSUB  D»ta_file 
ON  KEY  3  LABEL  "PLOTTER"  GOSUB  Setup_p iotter 
ON  KEY  4  LABEL  "GCLEAR"  GOSUB  Gclr 
ON  KEY  5  LABEL  "aO"  GOSUB  Initial  a 
ON  KEY  7  LABEL  "START"  GOSUB  Mainlproq 
!<•>  ON  KEY  8  LABEL  "R-CURVE"  GOSUB  R  curve 
!  (SEE  NOTES  ON  <•)  IN  R_curve  ROUTINE 
ON  KEY  9.4  CALL  Stop_test 


550  Spin: 
560  GOTO 
570  ? 

530  ’  — 

590  1 


!  WAITS  FOR  KEY  INPUT 
Spin 


In  i 
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6G0  uclr:  '  GRAPHICS  SCREEN  CLErtH 

6  J  0  !  THIS  ROUTINE  ALLOWS  SINGLE  KEY  STROKE  TQ  REMOVE  A  GRAPHICS  OICP'AY  -RG*i 

CR  7 

620  GCLEAR 

630  RETURN  f  RETURNS  TC  * -KEY  SELECTION 
640  • 


650 
660 
670 
6S0 
630 
700 
7!  i) 
720 
730 
740 
750 
760 


Spec  data:  INPUTS  REQUIRES  SPECIMEN  DATA 

PRINT  CHPS( ’ 2)  *  CLEARS  CRT 

PRINT  “INPUT  SPECIMEN  IDENTIF ICATION  < I D » -  “ 

INPUT  DS 
PRINT 

PRINT  “J-  INTEGRAL  TEST  For  “;0S 
PRINT 

PRINT  “INPUT  SPECIMEN  DATA  USING  ENGLISH  UNITS  (LBS. 
PRINT  ““ 

PRINT  “WHAT  IS  THE  SPECIMEN'S  WIDTH.  NOTCH  LENGTH.  Bmax . 


INCHES .  etc.)” 

Bm i n  <  TH ICKNES3 > 


770 

INPUT  W . A , Bmax . 3m i n 

780 

PRINT  "" 

790 

PRINT  “WHAT  IS  THE  SPECIMEN'S 

HALF  SPAN  AND  POISSON'S 

800 

INPUT  Hs.Nu 

810 

PRINT 

320 

PRINT  "WHAT  IS  THE  SPECIMEN'S 

ELASTIC  MODULUS.  YIELD 

IMP  Tt 

STRENGTH?" 

830 

INPUT  E.Ys.Uts 

RAT  107“ 


STRENGTH  AND  ULt 


840  PRINT  CHRS< 12)  !  CLEARS  CRT 

850  Fs*( Ys»Uts)/2 

860  PRINT  “USING  ENGLISH  UNITS  ( in . lbs, .as i >“ 

870  PRINT  “THE  FOLLOWING  HAS  BEEN  ENTERED  for:  “;DS 
880  PRINT  “WIDTH  -“;W;“  NOTCH  LENGTH  -“;A 
890  PRINT  “Bmaji  •";8max:“  Bonn  ”“:Bnm 

900  PRINT  “HALF  SPAN  POISSON'S  RATIO  *“;Nu 

910  PRINT  “YIELD  STRENGTH  «”;Ys:“  ULTIMATE  TS  *“:Uts 
920  PRINT  "ELASTIC  MODULUS  -“;E;“  FLOW  STRESS  -“;Fs 

930  PRINT  "" 

940  PRINT  "THIS  PROGRAM  ALLOWS  NO  EAST  RECOVERY.  IF  ANY  DATA  IS  INCORRECT  YOU 

MUST  RE-ENTER 

950  PRINT  "EVERYTHING. " 

960  PRINT 

970  PRINT  “IS  ALL  DATA  CORRECT?" 

980  INPUT  HS 

990  IF  H5-"N0”  OR  HS-”N“  THEN  670  *  REPEATS  Spec_data 

1000  PRINT  — • 

1010  PRINT  “DO  YOU  WANT  A  HARD  C0PY7" 

1020  INPUT  HS 

1030  IF  HS*”N“  OR  HS-“N“  THEN  U80 
1040  t 

1050  PRINTER  IS  706  *  TOGGLES  PRINTER  TO  THERMAL  PRINTER 

1060  PRINT  “" 

1070  PRINT  “USING  ENGLISH  UNITS  <tn.lbs.psi>  THE  FOLLOWING  INFORMATION" 

1080  PRINT  "HAS  BEEN  ENTERED  FOR:  ";DS 
1090  PRINT  ““ 

1100  PRINT  “WIDTH  -“:W:“  NOTCH  LENGTH  -“;A 

1110  PRINT  "Bmax  *“:Bnax:“  Bmin 

1120  PRINT  “HALF  SPAN  POISSON'S  RATIO  -“;Nu 

1130  PRINT  “YIELD  STRENGTH  *“:Ys:“  ULTIMATE  TS  -“;Uts 
1140  PRINT  “ELASTIC  MODULUS  -“:E:“  FLOW  STRESS  -”;Fs 
1150  PRINT  ““ 
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I reo  PRINTER  IS  !  '  TOGGLES  PRINTER  BACK  TO  CRT 

1170  ' 

1 : SO  PRINT  CHR3U2)  !  CLEARS  CRT 

1190  ' 

1200  !  CONVERSION  TO  METRIC  UNITS 

1210  Conien-25.4  1  1  in  •  2S . 40mn 

1220  W-w*Conien 

1230  A*A»Conlen 

1240  Bmax*Bniajt*Con  1  en 

1250  8m i n*Bm i n«Con len 

1 2S0  Hs*Hs“Conlen 

1270  Co no  res s '6 . 894 7 5 293  '  lesi  -  S . 394 75293V  Pa  (HP  PROGRAMING  BOOK) 

1280  E*E*Conpress 
1290  Ys-Ys*Conpress 
1  300  Uts*‘Jts«Conpres3 
1310  Fs*Fs*Conpress 
1320  • 

1330  PRINT  '•CONVERTING  THIS  DATA  TO  METRIC  UNITS  (mm.N.KPaJ  for  "iDS;"  YIEL 
DS  :  '• 

1340  PRINT  "WIDTH  -";W:"  NOTCH  LENGTH  *":A 
1350  PRINT  "Bnax  ■";Smax:"  8min  ■"  ;8nun 

1360  PRINT  "HALF  SPAN  -";Hs:"  POISSGNS  RATIO  *";Nu 

1370  PRINT  "YIELD  STRENGTH  -".r s : "  UTILMATE  TS  -”;Uts 
1380  PRINT  "ELASTIC  MODULUS  FLOW  STRESS  -";Fs 

1390  pr:nt  •••■ 

1400  PRINT  "DO  YOU  WISH  TO  HAVE  A  PRINT  OUT  OF  THIS  DATA?” 

1410  INPUT  G3 

1420  IF  G3*"N"  OR  GS-"N0"  THEN  1540 
1430  » 

1^40  PRINTER  IS  70G  1  TOGGLES  TO  THERMAL  PRINTER 

1450  PRINT  "CONVERTING  THIS  DATA  TO  ME'RTC  UNITS  (mm.N.KPa)  FOR:  ”;DS 

1460  PRINT  "WIDTH  NOTCH  LENGTH  -";A 

1470  PRINT  "Bmaj  •"iBmaji:"  Bonn  *":3min 

1480  PRINT  "HALF  SPAN  *";Hs:"  °OISSON'S  RATIO  *”:Nu 

1490  PRINT  "YIELD  STRENGTH  -";Ys;"  UL T IMA TE  TS  -":Uts 

1500  PRINT  "ELASTIC  MODULUS  FLOW  STRESS  -";Fs 

1510  PRINT  "“ 

1520  PRINTER  IS  1  !  TOGGLES  PRINTER  TO  CRT 

1530  * 

1540  PRINT  CHRS< 12)  !  CLEAR  CRT 

1550  ? 

1560  RETURN  •  RETURNS  TO  Ic  -KEY  SELECTION 

1570  1 

1580  ! . 

!rj'*0  • 

1600  Se tup_p lo t ter :  *  SET  UP  INTERACTIVE  PLOTTER 
'510  »  YOU  CAN  CHOOSE  BETWEEN  THREE  DIFFERENT  PLOTS 

1620  *  <P  vs  COD.  P  vs  DEFLECTION.  OR  J  vs  DELTA_A) 

1630  PRINT  CHRS ( 1 2 )  *  CLEARS  CRT 

1640  DIM  TS( 80  1 , XSt 80 1 , YS( 80 J 

1650  GCLEAR 

1660  GINIT 

1670  GRAPHICS  ON 

1680  PLOTTER  IS  3. "INTERNAL"  !  PLOTS  ON  CRT  FOR  VIEWING  BEFORE  SENDING  TO 

HP-7225B  PLOTTER 
1690  PRINT  "TYPE  OF  PLOT:" 

1 700  PRINT  "  1 .  LOAD  vs  COD" 

1710  PRINT  "  2.  LOAD  vs  DEFLECTION- 

1720  PRINT  "  3.  J  vs  CRACK  EXTENSION- 

1730  PRINT  "ENTER  THE  *  OF  THE  PLOT  YOU  DESIRE" 
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1740  INPUT  C2 
1  750  PRINT  "“ 

1760  PRINT 

1770  IF  C2-I  THEN  '810 
1780  IF  C2-2  THEN  I860 
1780  IF  C2-3  THEN  1810 
1800  PRINT  — 

1310  T$*"PLQT  of  LOAD  vs  COD  for  "iDS 

1820  PRINT  Ts 

1330  XS-'"C3D 

1840  YS-"L0AD  <N>'" 

1350  GOTO  1850 

I860  TS-"PLQT  of  LOAD  vs  DEFLECTION  for  ".IDS 

1870  PRINT  TS 

1880  ^-'"DEFLECTION  <<*«>'" 

1880  YS-'"LGAD  <N>" 

1800  GOTO  1850 

1910  TS»'"°LQT  of  J  vs  CRACK  EXTENSION  for  "iDS 

1820  PRINT  Ts 

1830  XS-'"DELTA  a  <m »<"" 

1840  Y$-'"J  <  k  j/m  2)'" 

1850  PRINT 

I860  PRINT  "USING  METRIC  UNITS  (ma.N.itJ/ri  '2. etc)  :" 
1870  PRINT  "‘ENTER  HERE  THE  Ymin.Xijd*  .Inin,  fmai'' 

1880  INPUT  XI <C2> .X2<C2> , Y " <C2) . Y2<C2> 

1890  X3-X2(C2) -XI <C2> 

2000  Y3-Y2<C2)-Y1 <C2) 

2010  VIEWPORT  13. 100-RATIO. 10. 90 
2020  WINDOW  X1<C2).X2(C2).Y1<C2>.r2(C2) 

2030  PRINT  -• 

2040  PRINT  "INPUT  DE'.  TA  X  AND  DELTA  Y  LABEL  INTERVAL" 
2050  PRINT  "FOR  THE  ,«0  AXES:" 

2060  INPUT  X4.T4 
2070  PRINT  "" 

2080  PRINT  "DO  YOO  WISH-  TO  HAVE  A  GRID  OVERLAY?" 

2090  INPUT  GS 

2 '00  IF  GS-"NO"  OR  GS-"N”  THEN  2140 
2110  PRINT 

2 ' 20  PRINT  "INPUT  GRID  LINES  PER  DELIA  LABEL:" 

21 3C  INPUT  B0 

2140  PRINT  "PRESS  ENTER'  TO  PLOT" 

2150  INPUT  HS 

2160  PRINT  CHRS< 1 2 >  *  CLEARS  CRT  < - 

2170  IF  G$*"NO"  OR  GS-""N"  THEN  2210 

2’ 80  FOR  I -X4/B0+X MC2)  TO  X2(C2)  STEP  X4/B0 

2190  MOVE  I.YKC2) 

2200  DRAW  I , Y2<C2) 

2210  NEXT  I 

2220  FOR  I-Y4/B0*Y1(C2)  TO  Y2<C2)  STEP  Y4/B0 

2230  MOVE  X 1 ( C2) , I 

2240  DRAW  X2(C2) , I 

2250  NEXT  I 

2260  GOTO  2320 

2270  IF  GJ-‘"Y"  OR  GS-"YES"  THEN  2320 
2280  MOVE  X2(C2)  .Y1 (C2) 

2290  DRAW  X2«C2)  .Y2<C2> 

2300  DRAW  XI (C2) .Y2<C2) 

2310  CLIP  ON 

2320  AXES  X4 , Y4 , X 1 < C2> , Y1 <C2> 

2330  CLIP  OFF 
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2340  VIEWPORT  t3.  ;00*««rtQ.5.'30 

2350  WINOOW  Xl<C2>.X2<C2>.ri<C2>,Y2<C2> 

2360  LORG  4 

2370  CSIZE  3.. 6  !  LABELS  X  DIGITS 

2330  FOP  X-X1 <C2)  10  X2<C2>  STEP  X4 
2390  CLIP  OFF 

2400  MOVE  X.Y1(C2> 

24)0  CLIP  OFF 

2420  LABEL  USING  "K" ; X 

2430  NEXT  X 

2440  VIEWPORT  4. IOO-RATIO. 10.30 

2450  WINDOW  XHC2)  ,X2<C2)  .  Y 1  <C2>  ,Y3<C2> 

2460  LORG  2  •  LA8ELS  Y  DIGITS 

2470  FOR  Y-YKC2)  TO  Y2<C2)  STEP  T4 

2480  CLIP  OFF 

2450  MOVE  XI <C2> ,T 

2500  CLIP  OFF 

2510  LABEL  USING  “K";Y 

2520  NEXT  Y 

2530  VIEWPORT  O.RATIO-IOO.O. 100 

254C  WINDOW  XI <C2>  .X2(C2> . T 1 (C2> , Y2<C2> 

2550  CSIZE  5 

2560  LORG  6  *  PLOTS  TITLE 

2570  MOVE  X2<C2>/2.Y2<C2) 

2530  LABEL  TS 

2590  DEG 

2600  LDIR  90 

2610  CSIZE  4. .7 

2620  MOVE  Xt(C2),Y2<C2)/2 

2630  LABEL  YS  •  PLOTS  Y-AXIS  LABEL 

2640  LORG  4 

2550  LOIR  0 

2660  MOVE  X2<C2)/2.Y1 <C2> 

2670  LABEL  XS  !  PLOTS  X-AXIS  LABEL 

26a0  * 

2690  PRINT 
2700  PRINT  — 

2710  PRINT  — 

2720  PRINT 

2730  PRINT  ’*  IS  THE  PLOT  (AXES  AND  LABELS)  OK?" 

2740  PRINT 

2750  PRINT  ”  NOTE:  IF  YOU  ANSWER  YES  OR  Y“ 

2760  PRINT  ”  PLOT  WILL  BE  PRODUCED" 

2770  PRINT  "  ON  EXTERNAL  PLOTTER." 

2780  INPUT  FS 

2790  IF  FS-"N"  OR  FS-"NO"  THEN  GOSUB  Setup  .plotter  *  REDO  PLOTTER  SETUP 
2800  • 

2810  GCLEAR  •  CLEARS  PLOT  FROM  CRT 

2820  ! 

2930  GOSUB  Ext .plotter  !  SENDS  PLOT  TO  PLOTTER 
2840  * 

2850  PENUP 
2860  MOVE  0.0 
2870  ! 

2880  RETURN  !  RETURNS  TO  W-KEY  SELECTION  OR  R.curve  ROUTINE 

2390  T 
2 301)  • 

2910  r 

2920  Ext .plotter:  !  DUMPS  PLOTTER  SETUP  TO  EXTERNAL  HP-7225B  PLOTTER 
2930  t 
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2950 
2560 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
31  10 
3120 
3130 
3140 
3150 
3 ' 60 
31  70 
3130 
3 ' 30 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 


■^L-lTTER  10  ’05.  'HP6L" 

VIEWPORT  13.100-RATID.10.00 
WINDOW  XMC2)  .X2<C2>  .Yt  <C2>  .  Y2‘C2> 

IF  GS*"NO"  OR  GS*”N'‘  THEM  3030 
FOR  I-X4/B0+X1 <C2>  TO  X2<C2>  5 TE?  X4/80 
MOVE  I.TKC2) 

DRAW  1 . Y2<C2) 

for  y4/bo»yi  ten  ra  r2(C2)  step  y4/ so 

MOVE  XI <C2> , I 
DRAW  X2(C2) . I 
NEX T  I 
GOTO  3120 

IF  GS-'T*  OR  G5-'’YES”  THEN  3120 
MOVE  X2<C2> . r 1 (C2» 

DRAW  X2(C2> ,Y2<C2) 

DRAW  XI <C2) ,Y2<C2) 

CLIP  ON 

AXES  X4.Y4.X1<C2).Y1<C2) 

CLIP  OF- 

VIEWPORT  13.100-RATIO. 5. 90 
WINDOW  XI <C2l . X2<C2> . Y 1 <C2> . T2<C2 > 

LORG  4 

CSIZE  3.-6  1  STZE  OF  DIGITS 

FOR  X-X 1 1 C2>  TO  X2<C2)  STEP  X4 
CLIP  OFF 
MOVE  x , Y 1 <  C2  > 

CLIP  OFF 

LABEL  USING  “K~;X  1  LABELS  X-AXIS 

NEX  T  X 

VIEWPORT  4. 100-RATIO. 10.90 
WINDOW  X 1 < C2 ) . X2 < C2 ) . Y 1 < C2 ) . Y2 < C2 ) 

LCRG  2 

FOR  Y-Y1<C2>  TO  Y2<C2)  STEP  Y4 
CLIP  OFF 
MOVE  X1<C2).r 
CLIP  OEF 

LABEL  USING  ~K";T  LABELS  V-AXIS 

NEXT  Y 

VIEWPORT  0. lOO-RATIO.O. 100 
W INDOW  XI <C2> ,X2(C2) ,Y1 (C27. Y2(C2) 

CSIZE  5  '■  TITLE  SIZE 

LORG  6 

MOVE  X2(C2)/2.Y2<C2)  „  _ 

LABEL  TS  !  PRINTS  iITLE 

DEG 

LDIR  90 
CSIZE  4,. 7 

MOVE  XI (C2) ,Y2<C2)/2  _  „„  _ 

LABEL  YS  !  PRINTS  Y-AXIS  TITLE 

LORG  4 
LOIR  0 

MOVE  X2(C2)/2.rt(C2)  TTTi  _ 

LABEL  XS  1  PRINTS  X-AXIS  TITLE 

PENUP 
MOVE  0.0 
• 

RETURN'  !  RETURNS  TO  Setup .plotter 
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; '•-i.)  • 

355a  Initial  _a:  1  ESTIMATES  INI  T IE5L.  CRACK  LENGTH 

3560  Be* f -Smax - < Bmax - Bn t n >  2/8max  1  USES  B  <  Er  *- ECT IVE  >  FROM  AST*  E3!„-?l 

3570  02- I  '  INITIALIZES  COUNTER 

35P0  PRINT  CHRS<12>  '  CLEARS  CRT 

3SbO  PRINT  "BEFORE  TOU  CAN  RUN  THIS  ROUTINE  TOU  MUST:" 

3600  PRINT  "  1.  ENTER  SPECIMEN  DATA" 

3610  PRINT  "  2.  ENTER  CONVERSION  DATA" 

3620  PRINT  "  3.  SET  UP  PLOTTER" 

3630  PRINT  "  A.  CREATE  DATA  FILE" 

3640  PRINT  "" 

3650  PRINT  "ARE  YOU  READY'?** 

3660  INPUT  HS 

3670  IF  HS-"N"  OR  HS-"NG"  THEN  5070  •  RE TURNS  TO  KEY  SELECTION  SCREEN 

3680  PRINT  CHRS<12>  •  CLEARS  CRT 

3630  PRINT  "THIS  ROUTINE  WILL  OBTAIN  THE  INITIAL  CRACK  LENGTH  AFTER  FATIGUE  PRE 
-CRACKING." 

3700  PRINT 

3710  PRINT  "YOU  MAY  LOAD  AND  UNLOAD  THE  SPECIMEN  AS  OFTEN  AS  YOU  LIKE  --  BUT  Y 
OU  MUST  REMAIN  ". 

3720  PRINT  "ON  THE  LINEAR  PORTION  OF  THE  CURVE!" 

3730  PRINT  "" 

3740  PRINT  "NOTE:  THE  MTS  SHOULD  BE  IN  'STROKE'  CONTROL" 

3750  PRINT  “  AT  A  VERY  SLOW  INVERTED  RAMP  FUNCTION- 

3760  PRINT  "  RATE  OR  YOU  MAY  DO  THIS  WITH  MANUAL  LOAD- 

3770  PRINT  "  CONTROL." 

3780  PRINT 

3750  ! 

3800  PRINT  "WOULD  YOU  LIKE  AN  ESTIMATE  OF  Pma*  <Lbs>7" 

3810  INPUT  ES 

3320  IF  ES-"N"  OR  E5-"N0"  THEN  4060  !  SKIPS  Pmax  CALC 

3830  ! 

3840  PRINT  "YOU  MUST  PROVIDE  AN  ESTIMATE  OF  CURRENT  CRACK  LENGTH- 

3850  PRINT  "INPUT  YOUR  ESTIMATE  IN  INCHES." 

3360  INPUT  Aest 

3870  !  CONVERT  ALL  DIMENSIONS  BACK  TO  ENGLISH  UNITS. 

3880  !  aO  IS  SUFFIX  ON  ALL  VARIABLES  FOR  THIS  CALC. 

30.30  Bef  TaO- Bet  f /Coni en 
3900  WaO-W/Conlen 

3910  81 iq-<WaO-Aest)  *  ESTIMATED  LENGTH  OF  UNBROKEN  LIGAMENT  IN  INCHES 

3920  FsaO-Fg/Conpress  4 

3930  HsaO-Hs/Con len 

3940  PlaO- . 533"Bef  faO»B 1 ig'2*FsaO/(2*HsaO) 

3950  PRINT  "BN  ESTIMATE  OF  Pmax  IS";PlaO 

3960  PRINT  "Pmax  ESTIMATES  THE  POINT  AT  WHICH  THE  CURVE" 

3970  PRINT  "BECOMES  NONLINEAR.  IAW  ASTM  E313-81” 

3980  ! 

3990  PRINTER  IS  706  !  TOGGLES  PRINTER 

4000  PRINT  "" 

4010  PRINT  "GIVEN  a-" ;Aest:" inches  THEN:" 

4020  PRINT  "  Pnax-" ;P laO : "Lbs  FROM  ASTM  E813-81" 

4030  PRINT 
4040  PRINTER  IS  t 
4050  ! 

4060  DIM  Lod(8000> ,Def 1(8000) ,Cod<8000> 

4070  ! 

4080  •  ASSIGN  DEFL  CORRECTION  COEF  USED  IN  Data_acq  AND  Take  data  ROUTINES 
4090  *  THIS  USES  A  4th  ORDER  POLYNOMIAL  FIT  OF  RECORDED  DATA  ON  THE  MTS  SYSTEM’ 
S  COMPLIANCE 
4100  ! 
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•*  I  '  0  LOlT«  !  >  *5  .  THBE-'J 
4120  Corr  <  2 ' -4 . 741 9£-6 

4130  Cor r<  3 ) *-2 , 803E-9 
4140  Corr<  4 ) • 1 .<t71E-'2 
4150  Corr<5>  — 2.7741E-I6 
4160  ! 

4170  PRINT 

4180  PRINT  "WHEN  YOU  ARE  READY  TO  BEGIN  PRESS  THE  ENTER'  KEY.” 

4190  INPUT  HS 

4200  PRINT  CHRS( 12)  1  CLEARS  CRT 

4210  K  *0  !  USED  AS  A  COUNTER 

4220  I- I  *  USED  AS  IN0EX 

4230  Flaql-0  !  NOTE:  FLAG  1  AND  FLAC2  ARE  RESE T 

4240  F  laq2-0  •  IN  Data_aca  ROUTINE 

4250  WHILE  Flaql-0  !  ESTABLISHES  ONE  LOAD-UNLOAD  DATA  TAKING  LOOP 

4260  GOSUB  Data_acq 

4270  END  WHILE 

4280  FLaq2-0  !  RESETS  FLAG2 

4290  WHILE  Flaq2-0 

4300  G0SU8  Data  acq 

4310  END  WHILE 

4320  PENUP 

4330  !  THIS  SECTION  CAN  BE  USED  TO  VIEW  THE  COLLECTED  DATA  BY  REMOVING  THE  REM 

ARK  CHARACTER  <  *)  . 

4340  !  FOR  I-i  TO  K 

4350  *  PRINT  USING  3780 : I .Lod< I > . Def 1 < I > ,Coo< I > 

4360  *  IMAGE  X.3D.4X,6D.0.4X,20.7D.7X,3D.7D 

4370  !  NEXT  I 

4380  !  WAIT  5 

4390  K 1  -  I 

4400  K3-K 

4410  GOSUB  Slope  1  SLOPE  -  1 /COD  COMPLIANCE 

4420  CorrelO(D2)*Correl  *  SAVES  CURRENT  CORRELATION  COEFFICIENT  IN  AN  ARRAY 

4430  ! 

4440  Coap 1 0 ( D2 > -Comp  1  !  SAVES  CURRENT  COMPL INACE  VALUE  IN  AN  ARRAY 

4450  * 

4460  GOSUB  Crack  Ienqth  !  USES  COD  COMPLIANCE 
4470  1  •». 

4480  A0(D2)-Crck  1  !  SAVE  THE  LAST  aO  MEASUREMENT  OBTAINED  IN  AN  ARRAY 

4490  ! 

4500  ’  FIND  952  CONFIDENCE  INTERVAL  FOR  aO 

4510  StiTT-Stiff ♦T9-U4 

4520  GOSUB  Crack_lenqth 

4530  A«axO<D2)-Crck 1 

4540  Stif f-Stiff-2»T9»U4 

4550  GOSUB  Crack_l*nqth 

4560  Aain0<D2)-Crck l 

4570  ? 

4580  ! 

4590  PRINT  CHRSU2)  *  CLEARS  CRT 

4600  PRINT  "THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED:” 

4610  PRINT  "" 

4620  PRINT  "INITIAL  CRACK  LENGTH  <aQ>  -”;A0<D2> \"mm  FROM  MEASUREME 

NT  *" ; D2 

4630  PRINT  "" 

4640  PRINT  "WITH  952  CONDIFENCE  INTERVAL  ON  a  FR0M";Aain0<D2) TO” ; AaaxO<D2> 

««" 

4650  PRINT  "" 

4660  PRINT  "USING  COD  COMPLIANCE  QF  :  "  ;Co«p  1 0<  D2) : ”WN” 

4670  PRINT  "WITH  A  CORRELATION  OF : " ;Cor rs 10( 02) : ”cROM" ;K ; "DATA  POINTS.” 
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4630  3RINT  — 

4690  PRINT  "DO  TCU  WANT  4  HARD  COP  TP" 

4700  INPUT  MS 

4710  IF  h$-"N"  OR  H$*'W  THEN  4830 
4720  ' 

4730  PRINTER  IS  706  ’  TOGGLES  PRINTER 

4740  PRINT  "" 

4750  PRINT  "THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED:" 

4760  PRINT  "INITIAL  CRACK  LENGTH  :AQ(D2> :"m«  FROM  MEASUREMENT  #";D2 

4770  PRINT  "WITH  957.  CONFIDENCE  INTERVAL  FR0M":Amin0<D2> :  "  TO"  ;  Ai»axO<  D2)  :  "mm" 

4780  PRINT  "USING  COD  COMPLIANCE  OF : ”:Como 10<D2> : "mm/N" 

4790  PR  IN  T  "WITH  A  CORRELATION  OF : ":Corr= 10 < D2) : "FROM" ;K ; "DATA  POINTS." 

4800  PRINT 

4810  PRINTER  IS  1  !  TOGGLES  PRINTER 

4820  ! 

4820  D2-02M  !  INCREMENT  COUNTER 

4840  PRINT  •••• 

4850  PRINT  "DO  YOU  WANT  MOTHER  a 0  MEASUREMENT?" 

4860  INPUT  GS 

4870  IF  G3-"Y"  OR  G3-"TES"  THEN  4060 
4880  * 

4890  PRINT  "INPUT  THE  NUMBER  <■»>  OF  THE  aO  MEASUREMENT  YOU  WISH  TO  USE  AND  S 
TORE." 

4900  PRINT  "  NOTE:  ONLY  THIS  SET  OF  DATA  ARE- 
4910  PRINT  "  STORED  ON  DISK." 

4920  INPUT  D2 
4930  1 

4940  A1-A0YD2)  *  ASSIGNS  A1  TO  DESIRED  A0<D2>  VALUE 

4950  *  NOTE:  A1  IS  USED  IN  Mainjsrog  AS  INITIAL  CRACK  LENGTH  VALUE 

4960  * 

4970  PRINT  “" 

4980  PRINT  “YOU  HAVE  SELECTED  MEASUREMENT  #";D2 
4990  PRINT  "  ARE  YOU  SURE?" 

5000  INPUT  PS 

5010  !  NOTE:  ONLY  THIS  aO  MEASUREMENT  IS  STORED  ON  DISK 

5020  ? 

5030  IF  PS-"N"  OR  PS- "NO”  THEN  4890  •  ALLOWS  CORRECTION 

5040  K2-0  •  K2  IS  UNLOADING  COUNTER  THIS  WILL  ENSURE  CORRECT  DAT 

A  IS  STORED 

5050  GOIDJB  Stor  data  f  < - WRITES  ON  DISK 

5060  f 

5070  PRINT  CHRS < 1 2 > 

5080  ! 

5090  * 

5100  RETURN  !  RETURNS  TO  k-KEY  SELECTION 

5110  ! 

5 1 20  ! 

5130  ! 

5140  Data  acq:  *  DATA  ACQUISITION  ROUTINE 

5150  OUTPUT  Dvo ; "VR5  AF1  AL3" 

5160  * 

5170  OUTPUT  Dvi»:"AI1  VT1"  *  READS  LOAD 

5180  ENTER  Ov«:Lod<I> 

5190  Lod< I ) -Lod< I >  »S  1  <  1 ) 

5200  1 

5210  OUTPUT  Dv»;"AI2  VTl"  !  READS  COD 

5220  ENTER  D««;Cod<I> 

5230  Cod< I)-<Cod< I) )»S1 (2) 

5240  !  NOTE:  COD  IS  CALIBRATED  ONLY  FORM  0.475  TO  0.625  INCHES  (MAX  COD  IS  0.1 

5  INCHES) 
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5250 

5260 

5270 

5230 

5290 

5300 

5310 

5320 

5330 

53^0 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

54*»0 


OUTPUT  Dvn:~AI3  V T  I **  !  READS  DEFLECTION 

ENTER  Dvm;Def’l<I> 

Def  1  <  I  >*Oef  1  ( I  > *»S l  *  3  > 

COSUB  Correct_def 1  1  DETERMINE  DEFL  CORRECTION  FACTOR 

I 

Def  l  ( I) ‘Def 1 ( I) - Totcor 


I  plot  the  data  point 

VIEWPORT  13. 100-RATI0. 10 .90 
WINDOW  XI <C2) ,X2<C2> .7! <C2> . T2 <C2> 
IF  C2-2  THEN  5410 
PLOT  Coat  I) ,Lod< I) 

GOTO  5420 

PLOT  Defl<I),Lod<I> 


•  TAKE  DATA  FOR  ONE  COMPLETE  LOADING  AND  UNLOADING 

IF  1-1  THEN  5520  1  SKIPS  TEST  ON  THE  FIRST  DATA  POINT 


5450 

5460 

5470 

5480 

5450 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

OR 

5600 

5610 

5620 

5630 

5640 

5650 

E  TO 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 


*  TEST  DATA 

Lod 1 f f *Lod( I ) -Lod< I  - 1 )  . 

IF  Lodi  f  f  <  -25 . 0  THEN  FUgi-1  !  MUST  BE  UNLOADING 
IF  Loaiff>25.0  THEN  Flag2-1  !  MUST  BE  LOADING 
Lodi f  f *0. 

1-1*1  !  INCREMENTS  INDEX 

1 

K-K *1  *  INCREMENT  COUNTER 


RETURN 

Correct_def l : 


!  RETURNS  TO  Initial,*  ROUTINE 

!  THIS  ROUTINE  CALCULATES  THE  DEFLECTION  CORREC1 


CORRECTION  FACTOR  IS  REQUIRED  TO  ACCOUNT  FOR  SYSTEM  COMPLIANCE 
A  4TH  ORDER  POLYNOMIAL  FIT  WAS  PREVIOUSLY  DETERMINED. 

1 

THE  ^CORRECTION  COEFFICIENTS  CORR<I>  WERE  ASSIGNED  IN  Initial. 
SPEED  UP  PROG. 

Lodp-Lod< D/Conib  !  CONVERTS  CURRENT  LOAD  TO  Lbs  FOR  CALC 
Def lc<1 ) -Lodp 
FOR  J-2  TO  4 

Def  lc<J>-Def  lc<J-1)-0ef  led) 

NEX  T  J 

Totcor-Corrd)  !  PREVIOUSLY  ASSIGNED  AS  NOTED. 

FOR  J-1  TO  4 

Totcor*Totcor*Corr< J*1 )-Deflc(J> 

NEXT  J 


Totcor- To tcor-Conlen 


CONVERTS  TOTAL  CORRECTION  FACTOR  FROM 


eat) 

5790  1 

5800  * 

5810  RETURN  '  RETURNS  TO  Data_acq  OR  Taire_data  ROUTINE 


ION  FACT 


a  ROUTIN 


(in)  TO  < 
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5820 

5830  ' . . . . 

5840  ' 

5350  Crac* .length:  !  CALCULATES  CRACK  LENGTH  USING  HUDAK  <  D  TNSRDC  PROG)  IPROF.  J 
.  JOYCE ' S  EQUATION] 

5360  !  NOTE:  THIS  ROUTINE  USES  COD  COMPLIANCE  METHOD  0 ICE  DEFLECTION  COMPLIA 

NCZ  . 

5370  FOR  1-1  TO  6 

5880  READ  Coef(I> 

5380  NEXT  I 

5900  Como  1 ■ 1 /S 1 1 f f 

*5310  C-2-H-Bef F-E-Comp 1 /Hs/ 1 000 

5920  C-1 /(SGRIO-I ) 

5930  G <  T  > -C 

5940  FOR  1-2  TO  5 

5950  G< I) -G( I- I )»G< 1 ) 

5960  NEXT  I 
5970  F-Coef  < 1 ) 

5980  FOR  1-1  TO  5 

5990  F-F»Coef < I ) *0< I ) 

6000  NEXT  I 
6010  Crckl-F-H 
6020  RESTORE 

6030  DATA  0.998265.-3.81662.-1.30596,32.31038.-44. 15665.-52.67876 
6040  1 

6050  RETURN  !  RETURNS  TO  Imtial.a  OR  Main .prog 

6060  ! 

60  70  ! . . - . . — 

6080  * 

6090  Conv.data:  !  INPUTS  CONVERSION  DATA  FOR  MEASURING  DEVICES 

6100  PRINT  CHRS< 12)  !  CLEARS  CRT 

6H0  PRINT  "INPUT:  LOAD  RANGE.  STRAIN  RANGE.  STROKE  RANGE" 

6120  PRINT  "  <ENTER  IN  PERCENT  le.  10.20,50.100)" 

6130  INPUT  Lr.Cr.Sr 
6140  PRINT  "" 

6150  PRINT  "LOAD  RANGE  -  ":Lr 

6160  PRINT  "STRAIN  <COD>  RANGE  -  ":Cr 

6170  PRINT  "STROKE  (DEFLECTION)  RANGE  -  ":Sr 

6180  Lmax-20000  *  MAX  LOAD  RANGE  IN  (lbs). 

6190  Caax- .200  1  MAX  COD  RANGE  IN  (in). 

6200  Seax-5 . 0  »  MAX  STROKE  RANGE  IN  <m>. 

6210  V-IO  *  MAX  VOLTAGE  IN  (volts). 

6220  ! 

6230  *  MAXIMUM  OPERATING  POINTS  ARE : 

6240  Oleax-Lnax-Lr/l 00 
6250  Qcnax-Ca.ax-Cr/100 
6260  Osaax-Saax-Sr/100 
6270  ! 

6280  1  CONVERSION  CONSTANTS  ARE:  (ENGLISH  UNITS) 

6290  S  le(  1  )  -Q  l«iax/V 
6300  Sle(2)-0cnax/V 
6310  S le(3) -Osnax/V 

6320  *  CONVERTING  TO  METRIC: 

6330  Conlen-25.4  !  25.4«a  -  1  in 

6340  Conlb-4. 448221615  !  4.448221615N  -  lib  (HP  PROGRAMING  BOOK) 

6350  » 

6360  •  Sled. 2. 3)  IS  USED  TO  DENOTE  CONVERSION  OF  VOLTAGE  TO  ENGLISH  UNITS. 

6370  SKI )-Sle(1 )»Conlb-<-1 .0)  !  COMPRESSIVE  LOAD  IS  NEGATIVE  VOTLAGE 

6380  SI (2)-Sle(2)-Conien 

6390  S 1  ( 3) -S le( 3) -Con len-( -1.0)  *  COMPRESSIVE  STROKE  SUPPLIES  A  NEGATIVE  VOL 

TAGE 
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OONVERS  IGN  DATA 


5uOO  ' 

ih;c  PRINT  '”■ 

6420  PRINT 

5430  PRINT  "YOUR  ENTRIES  HAVE  PRODUCED  THE  FOLLOWING 
6440  PRINT 

6450  PRINT  "FOR  LOAD:  ”;S1( I > :  "NEWTON/VOL T  <”;SIe< I > :"Lbs/V>" 

6460  PRINT 

6470  PRINT  "FOR  COD:  "  ;Sl  <2>  :"m«i/V  <";Sle<2> :"in/V>" 

6480  PRINT  ““ 

6490  PRINT  "FOR  DEFLECTION:  ";Sl<3> :“m»/V  <";Sle<3> :"in/V>" 

6500  PRINT  "" 

6510  PRINT  "WOULD  TOU  LIKE  A  HARD  COPY?" 

6520  INPUT  H$ 

6530  IF  HS*"N"  OR  HS-"NO"  THEN  6630 
654U  * 

6550  PRINTER  IS  706  !  TOGGLES  PRINTER 

6560  PRINT  "" 

6570  PRINT  "  CONVERSION  DATA" 

6580  PRINT  "FOR  L0AD:":S1< 1) :“N/V  <":Ste<1> :"Lbs/V>" 

6590  PRINT  "FOR  COD : " :S1 <2) ; "ram/V  < " : S I e < 2 > :‘\n/V>" 

6500  PRINT  "FOR  DEFLECT  ION S 1 < 3 >: "mm/V  < " :S le< 3> : ” tn/V) " 

6610  PRINTER  IS  !  !  TOGGLES  PRINTER 

6620  ! 

6630  PRINT  CHRS< 12) 

65“0  ! 

6650  RETURN  •  RETURNS  TO  ic-<EY  SELECTION 

666C  ’ 

6670  ! . - . . . . — 

6630  ! 

6690  Slope:  •  LINEAR  LEAST  SQUARES  FIT 

6700  PRINT  CHRS< 1 2)  !  CLEAR  CRT 

6710  *  INITIALIZE  VARIABLES 

6720  P2-0  *  USED  AS  A  COUNTER 

6730  Suax-0  !  SUM  OF  X  VALUES 

6740  Su»*2-0  !  SUM  OF  X  SQUARED  VALUES 

6750  Su*vO  !  SUM  OF  Y  VALUES 

6760  Su»v2-0  !  SUM  OF  Y  SQUARED  VALUES 

6770  Stumy '0  *  SUM  OF  THE  PRODUCT 

6780  FOR  I -K 1  TO  K3  !  KI-INOEX  OF  FIRST,  K3» INDEX  OF  LAST  DATA  POINT  USED. 
6790  !  TYPE  OF  PLOT 

6800  IF  C2-1  THEN  6840  *  LOAD  vS  COD 

6810  IF  C2-2  THEN  6880  !  LOAD  v,  DEFL 

6320  IF  C2-3  THEN  6920  !  J  vs  DELTA_a 

6830  ! 

6840  X-Cod<I> 

6850  Y-Lod<I) 

6860  GOTO  6990 

6870  * 

6880  X-0*fl<I> 

6890  Y-Lod<I> 

6900  GOTO  6990 

6910  * 

6920  X-Oelta  a<  I  > 

6930  Y-J9<I? 

6940  * 

6950  !  CHECK  IF  DATA  POINT  IS  WITHIN  BOUNDS 

6960  IF  De l ta_a< I) <J9< I >  7<2»Fs) ♦ . 1 5  THEN  7050  »  CHECKS  LOWER  LIMIT 

6970  IF  Delta  a(I)>J9< I)/<2»Fs)*l .5  THEN  7050  !  CHECKS  UPPER  LIMIT 

6980  • 

6990  Sujn  » -Sum**  X 
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70 00  Sumy-Suffly-T 

701  U  Sumx  2  -Sumx2  *  X  -X 

7020  Suffly  2  •  Sumy  2  ♦  Y-  1 

7030  Sujnxy  -Sumxy  -X *  f 

7040  GOTO  7060  '  GET-  NEXT  DATA  POINT 

7050  P2-P2H  1  INCREMENTS  COUNTER  EACH  TIME  A  POINT  IS  ELIMINATED. 

7060  NEXT  I 

7070  K3-K3-P2  '  USED  TO  CALCULATE  NUMBER  OF  DATA  “OINTS  WITHIN  BOUNDS. 

7080  K4-K3-KH-1  *  K4- TOTAL  •  DATA  POINTS  USED  IN  CALC 

7090  Qal -Su»x2-Su»x»Su»x/K4 

7100  Qa2-Sumxy-Suox-$uny /K4 

7110  Qa3*Sus»v2-Sui»y*Siu*v/K4 

7120 

7130  M-Qa2/Qat  !  SLOPE 

7140  ! 

7150  IF  M<0  THEN  7430  *  IF  SLOPE  <  0.  BAD  DATA 

7160  1  FROM  DTNSRDC  PROGRAM 

7170  at-<K4«Suflix2-Sufflx  ‘2>/<K4-<K4-1>> 

7180  Q2-<K4»Suxny2-Sa*iy  '2 ) / < K4» < K4- 1  )) 

7130  03-<K4-1 )«<Q2'M-M-G1 )/<<4-2) 

7200  Q4-SQR<Q3/<Q1»<K4-1)>> 

721 0  ! 

7220  8-<Suray-M-Sui»x>/K4  •  INTERCEPT 
7230  1 

7240  Correl-M-SQR<Q1/Q2) 

7250  • 

7260  Qa4-S0R ( ABS<  <  Sumy 2*B*Suffly -M-Sunxy  > /<K4-2>>> 

7270  Sigmab-Qa4/SGR(A8S<Qa1 > > 

7280  Sigmai»-SignaD-SGR<Suiiix2/K4) 

7290  Stiff-M  »  STIFF  *  SLOPE 

7300  Conpl-I/M  *  COD  COMPLIANCE  -  1 /SLOPE 

7310  * 

7320  f  STUDENT  t  TEST 
7330  U4-Q4 

7340  T9- 1.96 

7350  IF  K4> 1 20  THEN  7410  !  RETURNS 

7360  T9-2.1 

7370  IF  K4<20  THEN  7410  *  RETURNS 

7380  N9-K4-2 

7390  T9-N9/<-.617109*N9-. 510239)  - 

7400  1 

7410  RETURN 
7420  * 

7430  PRINT  "POOR  DATA--  SLOPE  <  0" 

7440  M-333333.3 

7450  Correl-0 
7460  • 

7470  RETURN  J  RETURNS  TO  Initiai_a.  Main _prog  or  R  curve  ROUTINE  (WHICHE 

UER  CALLED  IT) 

7480  ! 

7490  J 
7500  * 

75 1 U  Data  file:  !  ESTABLISHES  DATA  FILE 

7520  »  THE  FILE  TOU  CREATE  CAN  BE  READ  BY  THE  "J  DATA"  PROGRAM 

7530  ! 

7540  *  NOTE:  ANY  CHANGES  MADE  TO  THIS  ROUTINE  MAY  REQUIRE  SIMILAR  CHANGES  TO  " 

J_DATA"  PROGRAM  DUE 

7550  ?  TO  DISK  FORMATTING  CONSULT  HP  MANUAL  FOR  ASSISTANCE. 

7560  • 

7570  PRINT  CHRS< 12)  1  CLAERS  CRT 


:?ao  print  ’"This  routine  rill  create  a  data  file  on  dick  for  the  tes t . •* 

7590  PRINT  — 

7600  PRINT  "INSERT  AN  INITIALIZED  DATA  DICK  AND  ENTER  FILE  NAME  (SAMPLE  I 

0  IS  SUGGES TED > .  " 

7610  INPUT  NaaeS 

7620  PRINT  "" 

7630  PRINT  "IS  THIS  A  NEU  FILET- 
7640  INPUT  QS 

7650  IF  QS*"N"  OR  QS-“NO"  THEN  7680 
7660  ' 

7670  CREATE  BOAT  Name* . 6 , 40000 

7630  ASSIGN  "File  TO  Name* 

7690  ! 

7700  PRINT  "" 

7710  PRINT  "FOR  RECORD  PURPOSES  THE  FOLLOWING  DATA  IS  ALSO  RECORDED:" 

'720  PRINT  "" 

7730  PRINT  "ENTER  THE  DATE  (MM-DAY- YEAR) 

'740  INPUT  DataS(l) 

7750  PRINT  "" 

7760  PRIMT  "ENTER  THE  TIME  <HH :MM> :" 

7770  INPUT  DataS<2) 

7790  PRINT  "" 

7730  PRINT  "ENTER  THE  OPERATOR’S  NAME:" 

7800  PRINT  "  <UP  TO  10  CHARACTERS)" 

7910  INPUT  DataS<  3 ) 

7320  PRINT  "" 

7830  PRINT  "ENTER  SPECIMEN  ID:" 

7840  PRINT  "  (UP  TQ  10  CHARACTERS)” 

7850  INPUT  Data$<  4 ) 

7860  !  WRITE  ON  OISK 

7870  FOR  1-1  TO  4 

7880  OUTPUT  $Fi le ; QataS< I ) If ; 10  I 

7890  NEXT  I 

7900  1 

7910  BEEP 

7920  PRINT  "" 

7930  PRINT.  “DATA  FILE  HAS  BEEN  CREATED." 

7940  « 

"950  » 

'960  RETURN  !  RETURNS  TQ  k -KEY  SELECTION 
?970  ’ 

7980  1 . 

/53U  * 

9000  Stor_data:  !  WRITES  DATA  ON  DISK 

8010  * 

8020  !  THE  ITEMS  STORED  BY  THIS  ROUTINE  CAN  BE 

8030  !  RECALLED  USING  THE  ~J_OATA"  PROGRAM 

8040  *  CARE  MUST  BE  TAKEN  IF  ANY  CHANGES  ARE  MADE  TO  THIS  ROUTINE  SUCH  THAT  SI 

MILAR  CHAGES  ARE 

8050  !  MADE  TO  THE  “J_DATA”  PROGRAM. 

8060  * 

3070  IF  K2>0  THEN  8160  ?  K2  IS  UNLOADING  COUNTER 

8080  OUTPUT  MF i le : AO <02 ) . A» in0( D2> , AmaxO ( D2 ) . Como i 0 < D2 ) ,CorrelO<D2) ,K 

8090  ? 

8100  PRINT  "" 

8110  PRINT  ““ 

8120  PRINT  "INITIAL  CRACK  LENGTH  <aO)  INFORMATION  FROM  MEASUREMENT  *" : 

02 

9130  PRINT  "IS  NOW  IN  OISK  FILE  ";Na»eS 
8140  • 
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3  r  bo  IF  <Z-‘>  THEN  3220  ’  SKIP  IF  THIS  -«AS  aO  MEASUREMEN  r 

3160  OUT PUT  eF  ile; K 2. A 1  <  K2  > . De ita _a<  K2  >  .  <  .  L  . Corral. Como i . rim i n . Amax . Ar»a3<  K2 

)  .  J9<  K2 ) 

3170  OUTPUT  *F  i  le:Maei  1  <K2 )  . Coot  t  F  ..<0  .<  1 

3180  ' 

3130  PRINT  — 

3200  PRINT  "UNLOADING  INFORMATION  IS  NOW  IN  DISK  FILE  " ; Mane-5 
8210  ' 

8220  BEEP 

.3230  ’  WAIT  3  1  ALLOWS  A  PAUSE  SO  MESSAGE  IS  PRESENTED  ON  THE  CRT 

3240  * 

3250  ' 

•3260  RETURN  !  RETURNS  TO  Initial  a  OR  Main  prog 
8270  * 

3280  . . . . . . . ... 

3290  * 

3300  Taice_data:  *  THIS  ROUTINE  IS  USED  TO  TAKE  DATA  DURING  THE  ACTUAL  TEST. 


BEEP 
’  WAIT  3 


RETURN 


1  ALLOWS  A  PAUSE  SO  MESSAGE  IS  PRESENTED  ON  THE  CRT 


!  RETURNS  TO  Imtiai_a  OR  Mam_prog 


3330  OUTPUT  Dvm:"AI1  VT1  “  *  READ 

3340  ENTER  Dv«:Lod<n 
3250  Lod< I ) *Lod< I > *S 1 < 1 ) 

3360  ! 

8370  OUTPUT  Dv«:"AI2  VT1“  *  READS  COD 
8380  ENTER  Dvm;Cod<I> 

8230  Cod( I ) *Coa< I ) *S1 (2) 

8400  ! 

8410  OUTPUT  Dvm : "AI3  VT1"  !  READS  D 
8420  ENTER  Dvm : DeF l < I > 

8430  D«F  l<I)-DefI<I)-SH3) 

8440  ! 

3450  GOSUB  Correct_def 1  !  DETERMI 

NCE 

8460  ! 

L  470  Def I<I)-Oef  I<I)-Totcor 
8480  * 

3490  *  PLOT  THE  DATA  POINT 

8500  VIEWPORT  1 3 . 1 0O-RATIO . 1 0 ,90 
35/0  WINDOW  XI <  C2  >  .  X2  ( C2  > , T 1 < C2 3 , Y2  <  C2  > 
3520  IF  C2-2  THEN  8550 

6530  PLOT  Cod< I) ,Lod< I > 

3540  GOTO  8560 


•  INDEX 
!  READS  LOAD 


!  READS  DEFLECTION 


!  DETERMINE  CORRECTION  FACTOR  FOR  SYSTEM  CCMPLIA 


3550  PLOT  Dcf l< I) ,Lod< I ) 

8560  I 
3570  ! 

8580  RETURN  *  RETURNS  TO  Main _prog 
8590  ! 

8600  •  •••••••••••••••••••••••••••••••••••••••••-• 

8610  » 

8620  J_calc :  !  CALCULATES  J  WITH  CRACK  GROWTH  CORRECTION  ERNST  MODEL  (USED  BY  D 

TNSRQO 


RETURN  *  RETURNS  TO  Main _prog 
! 

( ................................. 


E5-2 

f  CALCULATE  J  FOR  FIRST  <Ist>  UNLOADING 
IF  K2> 1  THEN  8690 

J6- J7*E5/<W-A I <K2> )»Area9<K2) 73m  in 
GOTO  8730 

J6- J7*E5/<W-AKK2) )•< Area3 (K2)-Ar«a9(K2- 1 >  >/Bmin 
*  IF  DEL TA_a  <  0.254mm  DO  NOT  USE  CRACK  GROWTH  CORRECTION 
IF  De 1 ta_a< K2 > < . 254  THEN  8730 
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j6- j6-<  '  -  ? 
13-81 ) 

J7- JS 

t 

J9(K2>-J6 

i 

RETURN 


'(W-Ai (K2>  >-<rtl (K2)-rtl <K2- I >  >  > 


CORRECTS  TOR  CRACK  GROWTH  < A 


»  STORES  CURRENT  J  VALUE  IN  J9  ARRAY. 
!  RETURNS  TO  Main _prog 


8820 

8830 

8840 

8850 


8870 

8380 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

8970 

8380 

8990 

9000 


9020 

9030 

9040 


THIS  IS  THE  MAIN  PROGRAM  FOR  THE  J-INTEGRAL  TEST. 


CLEARS  CRT 


3  720 
STM  E8l 
8730 
8740 
3750 
8760 
8770 
8780 
8790 
8800 

8810  Main_prog: 

-  -  *  i 

PRINT  CHRS( 1 2 ) 

PRINT  — 

PRINT  "ENSURE  YOU  HAVE  COMPLETED  THE  FOLLOWING  ITEMS  BEFORE  PROCE 

EDING : " 

9860  PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT  HS 
IF  HS*"NO“ 

PRINT 
PRINT 

PRINT  "WHAT  IS  YOUR  EXPECTED  MAXIMUM  LOAD  IN  NEWTONS?" 

INPUT  Pmax 

LodS-.l-Pmax  1  USED  TO  SIGNAL  TURN  AROUND  FROM  UNLOADING 

t 

PRINT  "THE  TEST  SHOULD  START  WITH  NEAR  ZERO  (0)  LOAD  WITH  THE  MTS  IN  'STR 
OKE  '  CONTROL." 

9010  PRINT  -• 

PRINT  "ENSURE  THIS  IS  DONE." 

PRINT  "" 

PRINT  "WHEN  YOU  ARE  READY  PRESS  'ENTER'  OR  'CONTINUE'  KEY  AND  START  THE  N 


1.  ENTERED  SPECIMEN  DATA." 

2.  ENTERED  CONVERSION  DATA." 

3.  SET  UP  INTEACTIVE  PLOTTER." 

4.  OBTAINED  INITIAL  CRACK  LENGTH." 


ARE  YOU  READY?" 

OR  HS-"N"  THEN  10530  f  RETURNS  TO  WAIT  FOR  It -KEY  SELECTION 


TS  MACHINE." 


9050 

9060 

9070 

9080 

9090 


INPUT  HS 
PRINT  CHRSU2) 


!  CLEARS  CRT 


INITIALIZE  VARIABLES 


9100 

Area-0 

!  AREA  UNDER 

LOAD  vs  DEFLECTION  CURVE 

DTNSRDC  (18) 

9110 

Area9(  1 ) 

-0  1  AREA  BENEATH  SPECIFIC  LOD  vs  DEFL 

(DTNSRDC  I9(K2>> 

9120 

K-K 

?  CURRENT  INDEX  (AFTER  OBTAINING  INITIAL  CRACK  LENGTH) 

9130 

I-K 

?  INDEX  OF  FIRST  TEST  DATA  POINT 

9140 

KQ-K 

1  WHERE  TEST 

DATA  STARTS 

9150 

K 1  -0 

1  LOWER  INDEX 

FOR  SLOPE  CALC 

9 160 

<2-0 

1  A  COUNTER 

(K2)  NUMBER  OF 

UNLOADINGS 

91  70 

K3-0 

*  UPPER  INDEX 

FOR  SLOPE  CALC 

9180  L-1 

UNLOADING 

!  A  COUNTER 

DTNSRDC  (L) 

DATA  POINTS  TAKEN 

9190 

Loci  1  -0 

1  TEMP  LOAD 

(Pi )  USED  IN  AREA  CALC 

9200 

Lod2 -0 

1  temp  LOAD 

"  (P2> 

"  " 

9210 

LodS* . 1  * 

Pmax  1 

<P5>  USED  FOR 

TURN  AROUND  SIGNAL 

9220 

Lod9-0 

1  MAX  LOAD 

"  <P9> 

9230 

Cod  1 -0 

1  TEMP  COD 

( D 1  > 

9240 

Cod2*0 

•  TEMP  cod 

(D2) 

9250 

Cod4-Q 

'  TEMP  COD 

"  (C4> 
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9260 

9270 

9280 

9290 

9200 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9^00 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

ADING 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 

9710 

9720 

3730 

9740 

9750 

3  760 

9770 

9780 

9730 

3300 

9810 

38 20 

3830 


Coa9-0 
Cod  i  f  f '0 
Def 11-0 
Def 12-0 
J6-0 
J7-0 
11-0 
FI  -0 


USED  IN  AREA  CALC 


MAX  COD  "  <  D9> 

COD  DIFFERENCE  "  <D3> 

TEMP  DEFL  "  <D4> 

TEMP  DEFL  "  *D5> 

JI  FROM  CURRENT  UNLOAD 

JI  FROM  PREVIOUS  UNLOAD  DTNSDRC  <J7> 

FLAG  (O-LOADING.  1-UNLOADING) 

FLAG  (FI-999  ENDS  TEST) 


PRINT  "* 


IF  F 1-999  THEN  GOSUB  End_test 

t 

GOSUB  TaJte_data 
Def  16-Def  I  < I ) 

Lod7»Lod< I ) 

Lod2-Lod ( I ) 

Def I2-Def 1(I> 

Cod2-Cod< I ) 

i 

1  TEST  CONDITIONS  OF  DATA  POINT  JUST  TAKEN 

IF  (K-KO ) <20  THEN  10430  '  CALC  AREA  4  TAKE  MORE  DATA 

Cod  i  f  f -Cod2-Cod 1 

IF  Codif f < -3 . OE-4  THEN  9540  1  IF  CQDIFF  IS  (-)  CHECK  IF  LOADING  OR  UNLC 


IP  11-0  THEN  10430  ' 

IF  Cod2>Cod9  THEN  9600 
GOTO  10340  ' 

IF  I1O0  THEN  10340  ! 

Lod9-Lod2  ! 

Cod9*Cod2  1 

Def  19-Def 12 
11-1  ' 

GOTO  10340  ' 

IF  L<5  THEN  10290 
K1-K-L 
K3-K1 *L 
PENUP 


IF  LOADING  CALC  AREA  4  TAKE  MORE  DATA 
!  IF  TRUE  CHECK  IF  GOOD  UNLOADING 
DISREGARD  UPPER  27.  OF  UNLOADING  CURVE 
IF  UNLOADING  CHECK  IF  ON  UPPER  27  OF  CURVE 
!  IF  LOADING  MAKE  CURRENT  LOAD  -  MAXIMUM  LOAD 
!  MAKE  CURRENT  COD  -  MAX  COD 
1  MAKE  CURRENT  DEFL  -  MAX  DEFL 
MUST  BE  UNLOADING 
TEST  IF  UPPER  27  OF  UNLOADING 
?  BAD  UNLOADING.  SET  11-1 
'  SETS  LOWER  INDEX  FOR  SLOPE  CALCULATION. 

'  SETS  UPPER  INDEX  FOR  SLOPE  CALCULATION . 


K2-K2+1 


INCREMENT  UNLOADING  COUNTER 


GOSUB  Slope  1  IF  GOOD  UNLOADING 

S 1 1  f  f 2-S t i f  f 

GOSUB  CracX_length  !  CALC  CRACK  LENGTH 

A  I ( K2 ) -Crck  1  1  CURRENT  CRACK  LENGTH 

Del ta_a(K2)-Al <K2)-A1  !  DETERMINE  CRACK  GROWTH 

t 

!  NOTE:  A!  -  INITIAL  CRACK  LENGTH:  ASSIGNED  IN  Initiai_a  ROUTINE. 


CrcK  1 4-Crck 1 

PRINT  '•  -  UNLOADING  »'";K2:" 

’  PRINT 

PRINT  "CRACK  LENGTH  -" : A 1 ( K2 ) : "mm" 

PRINT  "DEL TA_a  ; De i ta_a< K2 > : "mm" 

PRINT  "TOTAL  *  DATA  POINTS  -  ":K 
PRINT  DATA  POINTS  THIS  UNLOADING  -";L 
PRINT  "CORRELATION  -":Correl 
PRINT  "COD  COMPLIANCE  -" :Comp i 
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9840 

9850  Area3< K2 ) -Area 
9860 

9970  !  CALCULATE  957.  CONFIDENCE  INTERVAL 

98S0  Stiff-Sti  f f  +  T9-U4 

9890  GOSUB  Crack_length 

9900  Amax-Crcle  1 

9910  Sttff-Stiff-2*T9»U4 

9920  GOSUB  Crack_length 

9930  St»ff-Stiff2 

9940  Amm-Crck  1 

9950  PRINT  -• 

9960  PRIN1  "957.  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  FROM  " ; Aram ; "TO" ; Amax 
9970  ! 

9980  GOSUB  J_calc  !  CALC  J  (USES  J-ERNST  MODEL) 

9990  ' 

10000  Mdef l<K2>-Defl(K>  1  MAX  DEFLECTION 
10010  1 

10020  1  PRINT  "" 

10030  PRINT  "AREA  : Area9< K2 ) : 

10040  PRINT  "J  ; J9(K2) : "KJ/m ‘ 2" 

10050  PRINT  "LOAD  LINE  DEFLECTION  -" ; Mdef I (K2) ; "ram" 

10060  PRINT  "CHANGE  IN  COD  -" : Codi f f : "mm" 

10070  PRINT  "K0-" ; KO ; "  K1-":K1 

10080  ! 

10090  ' 

10100  GOSUB  Pr t_resul ts  !  PRINTS  RESULTS  ON  PRINTER 

10110  ' 

10120  '  DATA  POINTS  CAN  BE  PRESENTED  FOR  REVIEW  BY  SIMPLY  REMOVING  THE  REMARK  C 

HARACTER  < 1  )  . 

10130  PRINT  "" 

10140  1  PRINT  "  PT  *  LQAD(N)  DEFLECT ION< mm)  COD(mm)" 

10150  !  FOR  I  *  <  K 1 -1 )  TO  K 

10160  !  PRINT  USING  91  70  : 1  .Load)  .Def  1  <  I  >  .  Cod(  I  > 

10  WO  f  IHOGF  4D ,4X .5D.D.6X ,DD,8D. ?X , DD.SD 
10180  ’  NEXT  I 

10190  1  WAIT  5  1  PAUSE  TO  ALLOW  VIEWING 

10200  1 
10210  f 

10220  GOSUB  S tor_data  !  STORES  INFORMATION  ON  DISK 

10230  ' 

10240  ! 

10250  IF  Crete  I4-A1  >0  THEN  10290 
10260  PRINT  "“ 

10270  PRINT  "  NO  CRACK  EXTENSION  THIS  POINT." 

10280  PRINT  "" 

10290  11-0 

10300  L-1 

10310  *  IF  L-1  THEN  Kt-K  1  SETS  LOWER  INDEX  FOR  SLOPE  CALCULATION  AT  CURRENT 

K 

10320  GOTO  10360 

10330  IF  Cod2<Cod1  THEN  10440  1  GET  MORE  DATA 

10340  IF  Lod2> .  98-Lod9  THEM  10440  ’  DISREGARD  UPPER  27.  OF  UNLOADING  4  GET  MO 

RE  DATA 

10350  L-L  +  1  1  INCREMENT  DATA  POINT  COUNTER 

10360  IF  Lod2>Lod9-Lod5  THEN  10440  1  IF  TRUE  GET  MORE  DATA 

10370  BEEP  »  SENDS  OUT  BEEP 

10380  BEEP  ’  AS  TURN  AROUND 

10390  BEEP  '  SIGNAL  TO  BEGIN  RELOADING 

10400  GOTO  10440  1  RESUME  TAKING  AND  IEST  DATA 

10410  ’ 

10420  '  CALCULATE  AREA  UNDER  LOAD  vs  DEFLECTION  CURVE 
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j 


10430 
10440 
10450 
10460 
10470 
10480 
10430 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
1  0770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 

:  11000 

l  1 1 0  1  0 

11020 


Area*Area*(Defl2-Defl1 >*<  Lod2+Lod1 > /2 
Lodi "Lod2 

K-KH  1  INCREMENT  TOTAL  *  DATA  POINTS  COUNTER 

Codl *Cod2 
Def 11-Def 12 

t 

GOTO  9380  1  LOOP  BACK  CHECK  IF  TEST  IS 

1  OVER,  IF  NOT  TAKE  MORE  DATA. 


RETURN  1  NEVER  REACH  THIS  BUT  ROUTINE  WOULD  NOT  BE  VALID  WITHOUT  IT 

« 


Prt_resul  ts :  1  PRINTS  TEST  INFORMATION  WHILE  PROGRAM  IS  RUNNING 

PRINTER  IS  706  !  TOGGLES  PRINTER 

PRINT  ••• 

PRINT  "  -  UNLOADING  *";K2;" - '• 

PRINT  -■ 

PRINT  "CRACK  LENGTH  :A UK2) : "mm  DELTA  _a  ; De 1 ta_a(K2> : "mm" 

PRINT  "95Z  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM"; Amin;"  T0";Amajt 
PRINT 

PRINT  "TOTAL  *  DATA  POINTS  -";K:"  *  DATA  POINTS  THIS  UNLOADING  -":L 

PRINT  "CORRELATION  -":Correi 

PRINT  "COD  COMPLIANCE  .Compl  ;"mm/N" 

PRINT  "" 

PRINT  "AREA  : Area9<K2) : "N-mm" 

PRINT  "J  ;  J9< K2 ) : “KJ/m " 2" 

PRINT  "MAX  LOAD  LINE  DEFLECTION  -"  : Mdef  I  ( K2> ; "mi." 

PRINT  "CHANGE  IN  COD  -" ;Cod i f f ; "mm" 

i 

PRINT  "" 

PRINTER  IS  1  !  TOGGLES  PRINTER  TO  CRT 

* 

RETURN  1  RETURNS  TO  Main _prog 

i 

*  »*•«#«*#*#*##***#******#■*****♦*#*«•***#•*# 


Stor_arrays:  1  STORES  ARRAYS  (Lod , Def 1 , Cod)  ON  DISK 

( 

j  THE  ARRRAYS  CAN  BE  RECALLED  LATER  USING 

*  THE  “J_DATA"  PROGRAM. 

* 

OUTPUT  ?Fi le ;Lod< * > ,END 
OUTPUT  ®F  i  le \ Def i < ») .END 
OUTPUT  $Fi le;Cod<»> .END 

8EEP 


RETURN  1  RETURNS  TO  End_lest 

i 


End_test:  1  ENDS  TEST 

i 

PRINT  CHRSC 12) 

» 

t 

GOSUB  Stor_arrays 

t 


p 


i 
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i :  030 
11040 
1  1050 
11060 
1 1070 
11080 
11090 
moo 
11110 
1 1 120 
11130 
11140 
11150 
1  1  160 
11170 
1  1180 
11190 
1  1200 
11210 
1  1220 
1  1230 
11240 
11250 
IT 

11260 
11270 
11280 
H290 
11300 
11310 
11320 
1 '330 
1 1340 
11350 
11360 
11370 
11380 
1  1390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
1  1470 
11480 
1 1490 
11500 
11510 
11520 
11530 
11540 
11550 
1  1560 
11570 
1  1580 
1 1590 
1  '600 
11610 


PRINT  "DATA  HAS  BEEN  STORED  ON  DISK  IN  FILE  " :Name5 
» 

GOSUB  R  curve 


TEST  IS  OVER!!" 


TEST  IS  OVER*' 


PRINT  "" 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT  "" 

PRINT  "" 

PRINT  "" 

PRINT  "" 

PRINT  "" 

PRINT  " 

i 

t 

GOTO  12590 

t 

RETURN  ’  NEVER  REACH  THIS  POINT  BUT  ROUTINE  WOULD  NOT  BE  VALID  WITHOUT 


TEST  IS  OVER!" 

!  GO  TO  END  STATEMENT 


R_curve:  !  J  vs  DELTA_a  DATA  IS  PRESENTED  FOR  PLOTTING 

» 

PRINT  "" 

t 

!  ALL  <•>  STATEMENTS  WILL  ALLOW  DIRECT  INPUT  OF  Deita_a<I>  vs  J9<I>  DATA 
!  YOU  MUST  REMOVE  [!<•)]  FROM  BEGINNING  OF  EACH  LINE  TO  ACTIVATE 
!(->  PRINT  "INPUT  THE  *  OF  UNLOADINGS" 

!<•>  INPUT  K2 

*<-)  PRINT  "ENTER  DELTA__A(  I) ,  J9<  I>" 

PRINT  "UNLOADING  *  DELTA_a< mm >  J<lcJ/m'2>" 

FOR  I- I  70  K2 

!<-)  INPUT  De 1 ta_a< I) . J9< I > 

PRINT  USING  1 1420:1. Delta_a<I> .J9<I> 

IMAGE  6X.3D,4X.DD.6D,5X,6D.D 
NEXT  I 
PRINT  "” 

PRINT  "DO  YOU  WANT  A  HARD  COPY?" 

INPUT  HS 

IF  HS-"N"  OR  HS-"NO"  THEN  11680 

i 

PRINTER  IS  706  *  TOGGLES  TO  THERMAL  PRINTER 

PRINT  "UNLOADING  *  DELTA_a(mm>  J<lcJ/m'2>" 

FOR  I- I  TO  <2 

PRINT  USING  11420:1, De 1 ta_a< I > , J9< I > 

NEXT  I 

PRINTER  IS  1  !  RETURNS  TO  CRT  AS  PRINTER 

i 

!<•>  PRINT  "ARE  ALL  OKAY?" 

*<•)  INPUT  GS 

'<*>  IF  G$-"Y"  THEN  11582 

!(»>  PRINT  "INPUT  I  (INDEX)  OF  BAD  *“ 

'(*)  INPUT  LI 

!(*)  °R INT  "INPUT  VALUES  OF  DEL TA_A( I )  AND  J9<I>" 
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11620 
1  1630 
11640 
1 1650 
11660 
A 

11670 
11680 
11690 
11700 
11710 
11720 
11730 
'  OR 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
1 1820 
11830 
1 1840 
11850 
1 1860 
11870 
11880 
11890 
11900 
11910 
11920 
11930 
11940 
11950 
11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 
12180 
12190 


*(•)  INPUT  De 1 ta_a1L 1 > , J9U.1 > 
to  PRINT  "ARE  YOU  OK" 
to  INPUT  EeeS 

to  IF  EeeS-"N"  THEN  GOTO  11574 

!  END  OF  <*>  CHANGES  REQUIRED  FOR  DIRECT  INPUT  OF  DELTA_A< I )  vs  U9(I>  DAT 


PRINT  — 

PRINT  "DO  YOU  WANT  A  PlOT  OF  J  vs  DELTA_a7" 

INPUT  RS 

IF  RS«"N"  OR  R$-"N0"  THEN  12550 
PRINT  -• 

PRINT  "WHEN  THE  PLOTTER  IS  READY  (NEW  GRAPH  PAPER  INSTALLED)  PRESS  'ENTER 
CONTINUE'  KEY" 

INPUT  CS 

t 

G0SU8  Setup_p lotter 


?  PLOT  THE  DATA  THE  DATA  POINTS 
VIEWPORT  13.100-RATIO, 10, 90 
WINDOW  XI <C2) ,X2<C2) , Y1 <C2> ,Y2<C2> 
FOR  1-1  TO  K2 
X-De 1 ta_a< I > 

Y-J9< I ) 

HOVE  X-X3* . 005 . Y+Y3« ■ 005  t 

DRAW  X+X3- .005.Y-Y3-.005  t 

MOVE  X+X3- . 005 , Y+Y3- .005  t 

DRAW  X~X3-.005.Y-Y3-.005  ! 

NEXT  I 

t 


DRAWS  A 
SHALL  X 
FOR  DATA 
POINT 


!  PLOT  THE  BLUNTING  LINE 
VIEWPORT  13, 100-RATIO. 10.90 
WINDOW  X1(C2),X2(C2).YKC2).Y2(C2> 

8 ly • Y2< C2 ) - Y3/8  t  TAKES  LINE  TO  7/8  OF  Y„a* 

8lx-8Iy/<2*Fs>-1000  t  DELTA_a  -  J/2-Fs 
MOVE  0,0 
DRAW  81*. Sly 

t 


Blmmx'Blx* . 15  !  DRAWS  LOWER  BOUNDS 

MOVE  .15.0 
LINE  TYPE  4 
DRAW  Blmtnx.Bly 


81max*-Blx+l  .5  !  DRAWS  UPPER  BOUNDS 

MOVE  1,5,0 

LINE  TYPE  4 

DRAW  Blmaxx.Bly 

PENUP 


i 


K1-1  !  LOWER  INDEX  FOR  LEAST  SQUARES  FIT 

K3-K2  t  UPPER  INDEX 

GOSUB  Slope 

• 


!  PLOT  THE  LINE  OBTAINED 
VIEWPORT  13,100-RATIO, 10,90 
WINDOW  XMC2>.X2<C2>,Y?<C2>.Y2<C2> 

Xplt-X2<C2)-X3/8  ?  TAKES  LINE  TO  7/8  OF  X*ax 

Yp 1 t-Xp i t-H+8 
HOVE  0,8 
LINE  1YPE  6 
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1 2200 
12210 
12220 
12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 
12510 
12520 
12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
ROGRAM 
12660 


DRAW  Xplt.Yplt 
PENUP 
PRINT 

PRINT  '‘ONLY  DATA  WITHIN  BOUNDS  IS  USED" 
PRINT  "FOR  LEAST  SQUARES  FIT." 

PRINT  "" 

"SLOPE*"; M :"  INTERCEPT-" ; B 
"CORREL-" : Cor  re  1 

"NUMBER  OF  DATA  POINTS  USED:";K4 


PRINT 
PRINT 
PRINT 

i 

PRINTER  IS  706 
PRINT 
PRINT 

PRINT  "DATA  FROM  J  vs  DELTA_a  PLOT 
PRINT  "" 

PRINT  "SLOPE  *";M; 

PRINT  "CORRELATION 
PRINTER  IS  1 
! 

1  FIND  THE  INTERSECTION.  HENCE  J<1c). 

!  SOLVE  BOTH  EQUATIONS  SIMULTANEOUSLY 
1  J  -  M«(DELTA_a)*B  -  (DELTA_a)*(2»Fs) 
J1c-<B/M)/( 1/M-< 1000/<2«Fs) ) ) 

PRINT  "” 

" ;  Jlc 


TOGGLES  PRINTER 


Y- INTERCEPT  : B 

'.Corral  : "  FR0M”;K4;" 

!  TOGGLES  PRINTER 


DATA  POINTS 


HENCE : 


PRINT  " 
PRINTER 
PRINT 
PRINT  " 
PRINT  "' 
PRINT  "* 
PRINT  " 
PRINTER 


IS 


Jlc 

706 


TOGGLES  PRINTER 


Jlc 


•:J1c 


TEST 
IS  1 


GOTO  12100 
RETURN 


IS  OVER!” 

1  TOGGLES  PRINTER 
!  GO  TO  END  STATEMENT 
1  RETURNS  TO  End  test  ROUTINE 


END 


•  END  OF  TEST  AND  PROGRAM 


SUB  Stop_test  !  STOPS  TEST 

1  L9-KEY  ACTS  AS  PROGRAM  INTERRUPT 

1  k9-KEY  IS  NOT  LABELED.  BUT  IS  ASSIGNED  A  HIGHER  PRIORITY  TI  INTERRUPT  P 


12670  COM  /J  intgl/  FI 

12660  Fl-999  f  SETS  STOP  FLAG 

12690  ’ 

12700  SUBEND 
12710  1 
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APPENDIX  F 


J  DATA  LISTING 


to 
20 
30 
40 
50 
SO 
70 
80 
90 
100 
no 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
220 
240 
250 
2S0 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
4  70 
480 
490 

J9<K2> 

500 

510 

5 20 

530 

540 

550 

560 

570 

580 

590 


J  DATA  °RGGRAM 

THIS  PROGRAM  HILL  ALLOW  YQU  TO  READ  A  DATA 
FILE  CREATED  BY  -'J_INTGL-‘.  YOU  MUST  KNOW 
HOW  MANY  UNLOADINGS  WERE  RECORDED  DURING 
THE  TEST  TO  USE  THIS  PROGRAM. 

PROGRAM  WAS  WRITTEN  BY : 

LCDR  W.K.  TRITCHLER 
VERSION  1.0  DATE  11/83 


DIM  DataSd  : 4 >  t  J  0  J 

DIM  Lod< 8000) .Oaf 1<8000) .Cod<3000> 

DIM  A L < 1 00 ) ,Area9< 100) .Delta  a<100) 

DIM  Mdef  1<100), J9< 1 00 ) 

i 

PRINT  CHRS( 12)  f  CLEARS  CRT 

* 

DUMP  DEVICE  IS  706 

PRINT  "WHAT  DATA  FILE  DO  YOU  WISH  TO  READ")" 

INPUT  Nana? 

ASSIGN  if  lie  TO  Na*eS 
FOR  1-1  TO  4 

ENTER  ?Fi le:OataS< I ) 1 1  :  TO] 

HEXY  I 
PRINT 

PRINT  "J-lNTEGRAL  TEST  OF  ";Data$<4> ;"BY :  ";DataS<3> 

PRINT  -• 

PRINT  "DATE:  OataS< f ) : “  TIME:  -;DataS (2) 

ENTER  »F  i  le;Crck  1 ,  Amn.Amax  .Comp  l .Correl  ,K 
PRINT 
PRINT  ““ 

PRINT  ~~ 

PRINT  "afl*“;Crck  l  .“WITH  952  CONDI FENCE  INTERVAL  FROM";A»in;"  TO":A»ax 
PRINT  "" 

PRINT  "FROM  COMPLIANCE  -  ";Corapl  , 

PRINT  "" 

PRINT  ''CORRELATION-'* ; Correl  ;"FRQM":K  :"DATA  POINTS" 

PRINT  "" 

PRINT  "DO  YOU  WANT  A  HARD  COPY  OF  THIS  INFORMATION-)" 

INPUT  GS 

IF  G$-"N“  OR  GS-"NO"  THEN  450 

DUMP  ALPHA 

PRINT 

PRINT  "INPUT  THE  NUMBER  OF  UNLOADINGS  THAT  WERE  RECORDED  DURING  THE  TEST. 
INPUT  Cl  !  WILL  BE  USED  AS  COUNTER 

FOR  I- I  TO  Ct 

ENTER  dF  i  le :K2 ,A 1 <K2)  ,Deita_a<K2>  ,K.L,  Correl.  Co«pl .  Amin  ,Amjc  .Area90C2> 

ENTER  WF i la : Mdef 1 <K2) , Codl f  f ,K0 ,KT 
GOSUB  Prt  results  1  DISPLAYS  INFO 
PRINT  "" 

PRINT  "DO  YOU  WANT  A  HARD  COPY?" 

INPUT  QS 

IF  QS-"N"  OR  QS-"NO"  THEN  580 

PPTWTTP 

GOSUB  Prt  results  *  WILL  NOW  PRINT  INFO 
NEXT  I 

PRINT  "DO  YOU  WANT  A  LISTING  OF  THE  DATA  POINTS-)" 
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600  INPUT  E3 

6  ;0  IF  E  OR  £S-"NO"  THEN  820 

620  PRINT  "" 

630  PRINT  "P T  •  LORD  (N)  DEFLECTION  <mra>  COD  <ram>" 

640  ENTER  l«F  i  le : Loa<  *  > . Det  l  ( *  >  ,Coa<  •  > 

650  FOR  I-i  TO  K 

660  PRINT  USING  670 : 1 .Loa< I ) . Def 1 < I > . Cod(  I  > 

670  IMAGE  X,40.3X.5D.D,3X.D.6D.3X.D.6D 

680  NEXT  I 

690  PRINT 

700  PRINT  ''DO  YOU  WANT  A  HARD  COPY?" 

710  INPUT  HS 

720  IF  HS*"N"  OR  HS-"NO"  THEN  830 
730  PRINTER  IS  706 

740  PRINT  "DATA  FROM  aO  FOR : " ; DataSt 4> ; "SY :  ";Data5<3) 

750  PRINT  ”• 

760  PRINT  "TESTED  ON:  ";DataS< 1 > ;“TIME :  ";DataS<2) 

770  PRINT 

730  PRINT  "PT  *  LOAD  <N)  DEFLECTION  (mm>  COD  (mm)" 

790  FOR  I-t  TO  < 

300  PRINT  USING  670 : 1 .Lod< I > . Def l ( I ) . Cod<  I  > 

810  NEXT  I 

820  PRINTER  IS  ’ 

830  PRINT  CHRS< 1 2 )  1  CLEARS  CRT 

840  PRINT  "DO  YOU  WISH  TO  PLOT  ANY  DATA?" 

850  INPUT  PS 

860  IF  E5--Y"  OR  £S-"Y£S"  THEN  880  !  OTHERWISE  MUST  NOW  READ  DATA  POINTS  OFF 

DISKETTE 

870  ENTER  «F i le :Lod( *  > . Def 1 <  *  > . Cod( * > 

880  IF  PS-"Y"  OR  PS--YES"  THEN  GOSUB  Se  tup_p  lo t  te r 

890  PRINT  "DO  YOU  WANT  ANOTHER  PLOT?" 

900  INPUT  AS 

910  IF  AS-"Y"  OR  AS-"YES"  THEN  GOSUB  Setup .plotter 

920  PRINT  "DO  YOU  WANT  ANOTHER  PLOT?" 

920  INPUT  FS 

940  IF  FS--Y”  OR  F5-"YES”  THEN  GOSUB  Setups  lot  ter 
950  PRINT  “  PROGRAM  IS  OVER!!:" 

960  PRINT  — 

970  PRINT  "" 

980  PRINT  "" 

990  PRINT  -• 

1000  PRINT  "" 

1010  PRINT  "  PRGGRAM  IS  OVER!" 

1020  PRINT  "" 

1030  PRINT  "" 

1040  PRINT  "" 

1050  PRINT  "" 

1060  PRINT  "“ 

1070  PRINT  "  PROGRAM  IS  OVER!" 

1030  ! 

1090  GOTO  1290 
1100  ! 

M10  ! 

1120  ! 

1130  Prt  results:  !  DISPLAYS  OR  PRINTS  UNLOADING  INFORMATION 

1140  PRINT 

1150  PRINT  "FROM  UNLOADING  »":K2;"REC0RDED";L:"DATA  POINTS" 

1160  PRINT  "COD  COMPLIANCE  ;Como 1 : "mm/N  CORRELATION  *";Correl 
1170  PRINT  "CRACK  LENGTH  *";Al  <K2>  :"mm  DELTA.A  Delta  atK2> 

1180  PRTNT  ”95 X  CONFIDENCE  INTERVAL  FROM”; An  in: "mm  TO" ;AmIx : "mm" 
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;  '  90  PRINT  "AREA  -":Area9<<2>  :  j  *  1 :  ^9(  <2  >  ;  "<Pa-*  ' 

1200  PRINT  "DATA  POINT  INDEXES  FROM" : X 1 ;  " TO" ;K : "  WERE  USE 
1210  PRINT  — 

1220  PRINTER  IS  I 
1230  • 

1240  RETURN 
1250  ! 

1260  1  — . - . 

1270  * 

1280  Setup _p lo t ter :  !  SET  UP  PLOTTER 

1290  *  YOU  CAN  CHOOSE  BETWEEN  THREE  DIFFERENT  PLOTS 

1300  PRINT  CHRS< 12)  *  CLEARS  CRT 

1310  DIM  TSCSO J . XSt 80  I . YSt SO J 

1320  GCLEAR 

1330  G IN  I T 

1340  GRAPHICS  ON 

1350  PLOTTER  IS  3. "INTERNAL"  !  PLOTS  ON  CRT 
1360  PRINT  "TYPE  OF  PLOT:" 

1370  PRINT  "  1.  LOAD  vs  COD" 

1380  PRINT  "  2.  LOAD  vs  DEFLECTION- 

1390  PRINT  “  3.  J  vs  CRACK  EXTENSION- 

1400  PRINT  "ENTER  THE  *  OF  THE  PLOT  YOU  DESIRE" 

1410  INPUT  C2 
1420  PRINT  "" 

1430  PRINT  — 

1440  IF  C2*1  THEN  1470 
1450  IF  C2-2  THEN  1520 
1460  IF  C2-3  THEN  1570 

1470  TS-"P(_OT  of  LOAD  vs  CCD  for  ”4DataS<4) 

1480  PRINT  TS 
1480  XS--COD  <»«)“ 

1500  YS-"LOAD  < N > ” 

1510  GOTO  1610 

1520  TS--PLOT  of  LOAD  vs  DEFLECTION  for  ”4DataS<4> 

1530  PRINT  TS 

1540  XS-"DEFLECTION  <aa)" 

1550  YS-"L0AD  < N ) ”  , 

1560  GOTO  1610 

1570  TS--PLOT  OF  J  vs  CRACK  EXTENSION  for  ”4DataS<4> 

1580  PRINT  TS 

1590  XS-"OELTA_a  <ma>" 

1600  YS-"J  <kj/a'2>" 

1610  PRINT  "" 

1620  PRINT  "USING  METRIC  UNITS  (ma.N.k  J/nT2.etc. ) 

1630  PRINT  "ENTER  THE  Xain, Xaax , Yam , Ynax" 

1640  INPUT  X1<C2),X2<C2),T1<C2),Y2<C2) 

1650  X3-X2<C2)-XKC2> 

1660  Y3*Y2<C2>-YT <C2> 

1670  VIEWPORT  13 , 100-RATI0 , 10 ,90 
1680  WINDOW  XI <C2> ,X2(C2) . Y 1 <C2> ,Y2(C2> 

1690  PRINT  "” 

1700  PRINT  "INPUT  DELTA_X  AND  DELTA_Y  LABEL  INTERVAL- 
1710  PRINT  "FOR  THE  TWO  AXES:" 

1720  INPUT  X4.Y4 
1730  PRINT 

1740  PRINT  "DO  YOU  WISH  TO  HAVE  A  GRID  OVERLAY?” 

1750  INPUT  GS 

1760  IF  GS-"N”  OR  GS-"NO"  THEN  1800 
1770  PRINT  "" 

1780  PRINT  "INPUT  GRID  LINES  PER  DELTA  LABEL:" 
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tzgo  input  b j 

1  SOU  PRINT  "PRESS  'ENTER'  OR  CONTINUE'  KEY  TQ  PLOT" 

1810  INPUT  H$  •  DUMMY  VARIABLE 

1820  PRINT  CHRS( 1 2 )  !  CLEARS  CRT 

1830  IF  GS*"N"  OR  GS-"NO"  THEN  1970 

1340  FOR  I  *  <4/80  »X I (C2 )  TO  <2<C2)  STEP  X4/B0 

1850  MOVE  I.H<C2> 

1860  DRAW  I . Y2<C2) 

1870  NEXT  I 

1380  FOR  I-Y4/80+Y1 <C2>  TO  r2<C2)  STEP  Y4/B0 

1890  MOVE  XI <C2> .  I 

1900  DRAW  X2<C2> . I 

1910  NEXT  I 

1920  GOTO  1970 

1930  IF  G3-"Y"  OR  G3-"YES"  THEN  1970 
1940  MOVE  X2(C2).Y1<C2) 

1950  DRAW  X2<C2> . Y2(C2> 

1960  DRAW  XI <C2) , Y2<C2) 

1970  CLIP  ON 

1980  AXES  X4 , Y4 , X I <C2> . Y 1 <C2> 

1990  CLIP  Ofc 

2000  VIEWPORT  13.1 00»RATIO .5.90 

2010  WINDOW  X1<C2).X2(C27.Y1(C2),Y2<C2) 

2020  LORG  4 
2030  CSIZE  3. .6 

2^40  FOR  X-XKC2)  TO  X2<C2>  STEP  X4 
2050  CLIP  OF- 

2060  MOVE  X . Y1 <C2> 

2070  LABEL  USING  "K";X  !  PLOTS  X-DIGITS 

2080  NEXT  X 

2090  VIEWPORT  4.100-RATIQ. 10.90 

2100  WINDOW  XI <C2) ,X2<C2) ,Y1 <C2) , Y2< C2 > 

2(10  LORG  2 

2120  FOR  Y-Y 1 <C2)  TO  Y2<C2)  STEP  Y4 
2130  CLIP  OFF 

2140  MOVE  XKC2J.Y 

2150  LABEL  USING  “K";Y 

2160  NEXT  Y 

2170  VIEWPORT  O.IOO-RATIO.O. 100 

2180  WINDOW  XI  cC2> ,X2<C2) , Y1 <C2) ,Y2(C2) 

2190  CSIZE  5 

2200  LQRG  6  1  PLOTS  TITLE 

2210  MOVE  X2(C2)/2,Y2(C2> 

2220  LABEL  T$ 

2230  DEG 

22 40  LOIR  90 

2250  CSIZE  4.. 7 

2260  MOVE  X! <C2) , Y2(C2 1/2 

2270  LABEL  Y5  1  PLOTS  Y-AXIS  LABEL 

2280  LORG  4 

2290  LDIR  0 

2300  MOVE  X2<C2)/2. Y1 (C2) 

2310  LABEL  XS  1  PLOTS  X-AXIS  LA8EL 

2320  ? 

2330  PRINT  “" 

2340  PRINT  — 

2350  PRINT  "" 

2360  PRINT 

2370  PRINT  "  IS  THE  PLUT  (AXES  AND  LABELS)  OK?" 

2380  PRINT 
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2390  PR  IN  T  ■’  NOTE:  IF  YOU  ANSWER  YES  OR  Y" 

2400  PRINT  -  PLOT  WILL  BE  SENT  TO" 

2410  PRINT  '•  EXTERNAL  PLOTTER” 

2420  INPUT  FS 

2430  IF  FS-”N“  OR  FS-”NO”  THEN  GOSUB  Setupj?  lotter  »  REDO  PLOTTER  SETUP 
2440  ' 

2w50  GCLEAR  1  CLEARS  PLOT  FROM  CRT 

246G  ’ 

2470  GOSUB  E»t_plotter 
24«0  ! 

2490  ?£ NUP 

2500  MOVE  0.0 
2510  ? 

2520  GOSUB  Plot  data 
2530  • 

2540  RETURN 
2550  ' 

2560  . . 

2510  ! 

2560  Ext_plotter:  *  DUMPS  PLOTTER  SETUP  ON  EXTERNAL  HP-7225B  PLOTTER 

2590  PLOTTER  IS  705,”HPGL" 

2500  VIEWPORT  1 3 . 100-RATIO . 1 0 . 90 
2610  WINDOW  X1<C2).X2<C2>.Y1(C2>.Y2(C2> 

2520  IF  G3-”N”  OR  GS-”NO”  THEN  2730 

2630  FOR  I-X4/80»X1 <C2>  TO  X2<C2>  STEP  X4/B0 

2540  MOVE  I.YKC2) 

2650  DRAW  I.Y2<C2> 

2660  NEXT  I 

2670  FOR  I-Y4/B0+Y1 (C2)  TO  Y2<C2>  STEP  Y4/BO 

2630  MOVE  XI <C2> , I 

2690  DRAW  X2<C2).I 

2700  NEXT  I 

2710  GOTO  2760 

2720  IF  GS--Y"  OR  G3-”YES”  THEN  2760 
2730  MOVE  X2(C2) ,Y1(C2) 

2740  DRAW  X2<C2) ,Y2(C2) 

2750  DRAW  XI <C2) ,Y2<C2> 

2760  CLIP  ON 

2770  AXES  X4.Y-4,Xt<C2>,YI<C2> 

2780  CLIP  OFF 

2790  VIEWPORT  13 . 1 00-RATIO ,5 ,90 

2800  WINDOW  XI < C2 ) , X2 < C2 ) , Y 1 < C2 > , Y2 < C2 > 

2810  LORG  4 
2820  CSIZE3..6 

2830  FOR  X-XKC2)  TO  X2(C2)  STEP  X4 
2840  CLIP  OFF 

2850  MOVE  X.YKC2) 

2860  LABEL  USING  "K";X 

2870  NEXT  X 

2880  VIEWPORT  4. 100-RATIO. TO. 90 

2890  WINDOW  XI (C2> ,X2<C2> ,Y1(C2> ,Y2(C2> 

2900  LORG  2 

2910  FOR  T-Y1 <C2>  TO  Y2<C2)  STEP  Y4 
2920  CLIP  OFF 

2930  MOVE  XI <C2) , Y 
2940  LABEL  USING  MK”:Y 

2950  NEXT  Y 

2960  VIEWPORT  0. 100-RATIO.0. 100 

2970  WINDOW  XI <C2> ,X2<C2> ,T1 <C2> . Y2(C2> 

2980  LORG  2 
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2990  CSIZE  5 
3000  LORG  6 

3010  MOVE  X2<C2)/2.Y2<C2> 

3020  LABEL  TS 

3030  OEG 

3040  LOIR  90 

3050  CSIZE  4. .7 

3060  MOVE  XI <C2>  .Y2<C2>/2 

3070  LABEL  TS 

3080  LORG  4 

3090  LDIR  0 

3100  MOVE  X2<C2>/2. Y1 <C2> 

3110  LA8EL  XS 

3  *  20  * 

3130  PENUP 
3 1 40  MOVE  0 , 0 
3150  ! 

3160  RETURN 
3170  * 

3180  . . . . — . . 

3190  ! 

3200  PIot_data:  !  PLOTS  TO  DATA  SELECTED 

3210  f 

3220  VIEWPORT  1 3 . 100-RATIO. !  0 .90 
3230  WINDOW  X 1  <  C2  > . X2  <  C2 ) . Y 1 ( C2 ) , Y2  <  C2  > 

32*0  * 

3250  IE  C2-I  THEM  3290 
3260  IF  C2-2  THEN  3340 
3270  IF  C2-3  THEN  3390 
3280  ? 

3290  FOR  1-1  TO  K 

3300  PLOT  Cod(I) ,Lod<I> 

3310  NEXT  I 
3320  GOTO  3430 
3330  * 

3340  FOR  1-1  TO  K 

3350  PLOT  Daf  1  ( I)  ,Lod<  I ) 

'3360  NEXT  I 
3370  GOTO  3430 
3380  ! 

3390  FOR  1-1  TO  Cl 

3400  PLOT  Da l ta_a<K2> .  J<K2> 

3410  NEXT  I 
3420  * 

3430  PENUP 
3440  BEEP 

3450  RETURN  !  RETURNS  TO  SETUP  PLOTTER 

3460  * 

3470  ! 

3480  * 

3490  END 
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APPENDIX  G 


PRECRACK  OUTPUT 


USING  ENGLISH  UNITS  <in.ibs.psD  THE  FOLLOWING  INFORMATION 
HAS  SEEN  ENTERED  FOR:  HY80-SB 

WIDTH  -  .9469  NOTCH  LENGTH  -  .444 

Bmax  *  .496  Bmm  *  .994 

HALF  SPAN  -  t.894  POISSON'S  RATIO  *  .3 
YIELD  STRENGTH  -  86S00  ULTIMATE  TS  -  100000 
ELASTIC  MODULUS  *  2.9EW  FLOW  STRESS  •  93300 

CONVERTING  THIS  DATA  TO  METRIC  UNITS  (mm.N.KPa)  FOR:  HY80-SB 
WIDTH  -  24.05126  NOTCH  LENGTH  -  11.2776 

Bmax  *  12.5984  Brain  ■  10.0076 

YIELD  STRENGTH  -  597085.603738  ULTIMATE  TS  -  689475.293 
ELASTIC  MODULUS  -  1 .9994783497E+8  FLOW  STRESS  -  643280.448369 

BASED  ON  CURRENT  INFORMATION  FOR  HY80-5B: 

CURRENT  CRACK  LENGTH  -  .444  in 

OPTIMUM  CRACK  LENGTH  -  .56314  m 

EXTENSION  REQUIRED  -  .12414  in 

CRACK  LENGTH  AT  507.  OF  EXTENSION  -  .5060  7  in 

Pmax  -  3272.42651647  Lbs  Pram  -  163.621325823  Lbs 

De Id  -  3108.80519064  Lbs  Kmax  -  82563.7466931 

DELTA_K  -  78435.5593585  m'.S  DELTA_KE  -  40000  in*. 5 

NEW  LOADS  BASED  ON  D£LTA_KE  ARE: 

Pmax  -  1668.34843723  Lbs  Pram  -  83.4424218615  Lbs 
DELTA_P  -  1585.40601537  Lbs  Kmax  -  42105.2631579 


CONVERSION  DATA 


FOR  LOAD 

’779.288646  N/V  ( 

-400  Lbs /V) 

FOR  C0r 

.508  ram /V  <  .002 

m/V) 

FOR  DE.  " CTION : - 1 2 . 7  m«/V  < 

-  .  5  i n/V ) 

U  •  .07 

a/U  -  .732 

186117982  in  CRACK 

LENGTH  -  .693307035117 

LOAD  < lbs) 

•  COD  < in) 

COD  (Volts) 

200 

.00256290169302 

1 .28145084651 

300 

.00384435253953 

1  .92217626976 

400 

.00512580338604 

2.56290169392 

500 

.00640725423255 

3.2036271 1627 

600 

.00768870507906 

3.84435253953 

700 

.00897015592557 

4.48507796278 

800 

.0102516067721 

5.12580338604 

900 

.0115330576186 

5.76652880929 

1000 

.0128145084651 

6.40725423255 

1100 

.0140959593116 

7.0479796558 

1200 

.0153774101581 

7.68870507906 

1300 

.0166588610046 

8.32943050231 

1400 

.0179403118511 

8.97015592557 

1500 

.019221 7626976 

9.61088134832 

1600 

.0205032135441 

10.2516067721 

1700 

.021 7846643907 

10.8923321953 

1800 

.0230661152372 

11 .5330576186 

U  -  .075 

a/U  -  .713968763392  in  CRACK 

LENGTH  -  .676057022056 

LOAD  < lbs) 

COD  < in) 

COD  (Volts) 

200 

.00220863052208 

1 .10431526104 

300 

.00331294578312 

1  .65647289156 

400 

.00441 726104416 

2.20863052208 

500 

.  00552 ’ 5  763052 1 

2. 7607031526 

I  S  i 
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..'SING  ENGLISH  jM[7S  <  m.  .bs.Psi)  THE  POUCHING  INFORMATION 
mA 3  SEEN  ENTERED  FQR:  HY80-5B 

UTDTH  -  .9469  NOTCH  LENGTH  -  .444 

Bmax  ■  .436  8m  in  *  .394 

nALr  SPAN  -  1.394  POISSON'S  RATIO  *  .3 
r [ELD  STRENGTH  -  96600  ULTIMATE  rS  -  100000 
ELASTIC  MODULUS  -  2.9EW  FLOW  STRESS  *  92300 

CONVERTING  THIS  DATA  TO  METRIC  UNITS  (mm.N.KPaT  FOR:  HY80-SB 
WIDTH  •  24.05126  NOTCH  LENGTH  ■  11.2776 

Bmax  »  12.5364  Sown  *  10.0076 

YIELD  STRENGTH  -  597085.603733  ULTIMATE  TS  •  639475.293 
ELASTIC  MODULUS  -  1 . 99947B3497E*3  FLOW  STRESS  -  643280.448263 

3ASEQ  OH  CURRENT  INFORMATION  FOR  HY80-58: 

CURRENT  CRACK  LENGTH  -  .444  ;n 

OPTIMUM  CRACK  LENGTH  -  .56314  in 

EXTENSION  REQUIRED  -  .'12414  in 

CRACK  LENGTH  AT  507:  OF  EXTENSION  -  .50607  in 

Pmax  •  3272.4265164/  Lbs  Pmin  -  163.621325323  Lbs 

D*ip  •  3108.30519064  Lbs  Kmax  -  32563.7466331 

DEL7A_K  -  78435.5592585  in'. 5  DE_TA_<£  -  40000  in'. 5 

NEW  LOADS  BASED  ON  QELTA_<E  ARE: 

Pmax  *  1663.84843723  Lbs  Pmin  *  83.4424218615  Lbs 
D£LTA_P  -  1 535 . 4C60 1 537  Lbs  Kmax  -  42105.2631579 


CONVERSION  DATA 

FOR  LOAD: -1  779 .293646  N/V  (-400  Lbs/V> 

FCR  COD:  .0508  om/V  (  .002  in/V> 

FOR  DEFLECTION  :  - 1 2 . 7  mm/V  (-.5  in/V> 

THE  FOLLOWING  INFORMATION  MAS  BEEN  OBTAINED: 

CRACK  LENGTH  -  .477215195165  in  FRQr  MEASUREMENT  *  1 
WITH  957:CCNFIDENCE  INTERVAL  FROM  .47792545433  TO  . 4765074 1 098 1  in 
USING  COD  COMPLIANCE  OF:  2 .341  0431  1  054E-6  in/Lb  -  1  . 62905 1  734  7  2E -5  mm/N 
WITH  A  CGRR2 -AT ION  OF:  .999771 386472  FROM  106  DATA  POINTS. 


THE  FOLLOWING  INFORMATION  HAS  3EE.N  OBTAINED: 

CRACK  LENGTH  -  .477198279382  in  FROM  mFASUREMENT  r  2 
WITH  957CCONFIDENCE  INTERVAL  FROM  .4780^4054454  TO  .  476336 1  -’8981  in 
USING  COD  COMPLIANCE  OF:  2.84076125094E-6  m/Lb  -  1 . 630377 5021 3E-5  mn/N 
WITH  A  CORRELATION  OF:  .99959257929  FROM  124  DATA  POINTS. 

BASED  ON  CURRENT  INFORMATION  FOR  HY30-5B: 

CURRENT  CRACK  LENGTH  •  .477198279382  in 

QPTIMUN  CRACK  LENGTH  -  .56314  in 

EXTENSION  REQUIRED  -  .0909417206182  m 

CRACK  LENGTH  AT  50%  OF  EXTENSION  -  .489470860309  in 

Pmax  -  2854.63728597  Lbs  Pmin  -  142.731864298  Lbs 

Oe ip  •  271  I  .  30542167  Lbs,  Kmax  -  803 1  0 . 2 753096 

DELTA_K  -  76294.761544'  m.5  DELTA_<E  -  40000  m  .5 

NEW  LOADS  BASED  ON  0ELTA_<E  ARE: 

Dmax  •  1  496 . 63606 1  6 1  Lbs  °mn  *  74.3313030804  Lbs 
DEL  "A  °  •  '  421  .3042595  '  _yS  •'max  ■  .253157? 


JL 
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\D-AM2  033  ELASTIC-PLASTIC  FRACTURE  TOUGHNESS  TESTING  METHODS(U) 

NAVAL  POSTGRADUATE  SCHOOL  MONTEREY  CA  W  K  TRITCHLER  " 

INCLASSIFIED  F/G  20/11  Nl _ 
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JP**  '  ‘  «*.*  »IM  •  *.*•*  ♦  * 
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'm>  •  ::«  *%  ..»•  ►•.-**.■  *:mi  •***  .  !>• 
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'  2W:  *  .•  }  X.*a.*£  *  29:  co  : 

HC-  .3405  MStD  >  XU '»  *t  A*t 

***»  -  *301  in  91<»  *».«  •  SC  *9G*«-9€'?9  .3» 

*  9sj.:m«j38».’  k%*i  •  3os:6.3!S7«n 

the  following  information  mas  been  obtained: 

CRACK  length  -  .S2D238DCS069  i«  FROM  MEASUREMENT  0  1 
Wl*n  niCONEIDENCE  INTERVAL  FROM  .524952826657  TO  .52’538T09085  in 
USING  COO  COMPLIANCE  OF:  3 . 7*60409948lE-6  m/Lb  -  2. 16181567&48E-S  m/N 
WITH  A  CORRELATION  OF:  .999T83456903  FROM  6f  DATA  POINTS. 

THE  FOLLOWING  INFORMATION  NAS  BEEN  OBTAINED: 

CRACK  LENGTH  •  .519260644793  in  FROM  MEASUREMENT  0  2 
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t  S  >4»  ;4.  ♦*  ♦  *  ** 

*•;  A*.  i  :l*r  ift*  .1  »  •  -*  ,  *  •  ••»  mm  * 
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•  i  »  *4  :»*•»  »  j«*»:  ne  .  k  *  •  «  ’ 

4  :  «*%  >  :.t  t»i  •  *.#*  «r  *•:  r#>~  «c  • 

•  «  ^  ,  .NT  :« *  :  %  :  *mw  •  k.p*  * .  :  ;  :  rr  *  :*t  !  v#  * 

•  t  «*.  ;«  ,W-  «••«  :  :r  :»*■*:  t  *;  i  .  •  *.  •*.<..  *w  •  m.  » 

•  *  ♦  .mi  »  . m  .r  ;  ii  i*<  ■*<.>*  »  : 

!»•:«  :  »  .ww*  m  him  **  •  .»  *‘n  •» 

i*  «  i«.‘.  •  t .  «*>*»-i* 

■#  •  :  M.M  «*  1  .|«‘n  •  •*.*  »  - 

(riw,;.’>»  «  j.  ;m  :  •  :*'>  •%■♦*.•  •  .. 

.»mo»  *•  w:  »  t  i'i«:.ji  •  m.  "m •• :*r*,v  ... 

r*«)  *  **.'  .  t»«  **.«  •  *‘  '  ''i '■■:"*•  .  *>» 

>..*  *  m  .b*  <mi  -  :o»j' 

-  m'K  38'*4Si  S  X.*»_‘£  -  2900o  ... 

NT*  l3A0S  MSCD  3N  XL ’a  H  ART 

A«aj  -  933.'/0>ff%49  lb«  P*»n  *  *6 . 6585 » 4*825  i.b% 

XL  TA  P  -  886.511775167  Lb*  Kui  •  30526.3157895 


th£  PILLOWING  I NF OR HAT  ION  NAS  BEEN  OBTAINED: 

CRACK  LENGTH  •  .5575421 80253  in  FROM  MEASUREMENT  «  l 
WlTH  35ZC0NEIDENCE  INTERVAL  PRON  .559342565208  TO  .555757S96687  in 
USING  COO  COMPLIANCE  X:  4.6522934609E-6  in/Lb  •  2 .6877228564E-5  ««/N 
HITH  A  CORRELATION  OF:  .999026349545  PRON  60  DATA  POINTS. 


T«E  FOLLOWING  INF0RNATI0N  HAS  BEEN  OBTAINED: 

CRACK  LENGTH  -  .556985314799  in  PRON  NEASUREHENT  *  z 
WITH  95ZC0NFIDENCE  INTERVAL  PRON  .5596031 400T 7  TO  .554400760935  in 
USING  COD  COHPLIANCE  OF:  4 .63555555373E-6  m/Lb  -  2 .69227537518E-5  m/N 
WITH  A  CORRELATION  OF:  .998286279816  FRON  5t  DATA  POINTS. 


THE  FOLLOWING  INFORNATIQN  HAS  BEEN  OBTAINED: 

CRACK  LENGTH  -  .55746232304  in  FROM  NEASUREHENT  *  3 
WITH  95ZC0NFIDENCE  INTERVAL  FRON  .558944733365  TO  .555990641885  in 
USING  COD  COHPLIANCE  OF:  4. 649888565 12E-6  in/Lb  -  2.680790741 53E -5  s»/N 
WITH  A  CORRELATION  OF:  .999219985095  FRON  70  DATA  POINTS. 

BASED  ON  CURRENT  INFORMATION  FOR  HY80-5B: 

CURRENT  CRACK  LENGTH  -  .55746232304  m 

QPTIMUN  CRACK  LENGTH  -  .56814  tn 

EXTENSION  REQUIRED  -  .0106776769602  in 

CRACK  LENGTH  AT  50*  OF  EXTENSION  •  .44933883848  in 

Piuu  -  784.95101444  Lbs  Pi»m  -  39.247550722  Lbs 

Osip  -  745,703463718  Lbs  K»«  -  29594.1425953 

DELTAJC  •  28114. 4354655  in*. 5  DELTAJCE  -  29000  in*. 5 

THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED: 

CRACK  LENGTH  -  .556873246958  in  FROM  MEASUREMENT  •  1 

WITH  95ZC0NFIDENCE  INTERVAL  FROM  .558630143876  TO  .555131398279  in 

USING  COD  COMPLIANCE  OF:  4.632196t2139E-6  m/Lb  -  2.67532481877E-5  ms/N 
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CP<*.'i  .£•*•.'-  •  *»223H*  V*  34  .'SO  •*t>3.-RE  "?S*  •  _ 

**>nznr  ::ttc:  in’crvai.  rao m  56:«3^4..iba:  to  S60988M06S8  .n 

*js :**c  coo  compliance  <v .  *  .’95529965 s t e .n/Ls  -  2  :,6o:so2so2se-5  m/n 

uI’m  a  CORRELATION  V  :  .9AQ«m;«b;i  fsom  67  DATA  POINTS. 

9ASED  ON  CURRENT  INFORMATION  *0R  HTdO-53: 

CURRENT  CRACK  lENC'H  •  . 562208 x 07S3 a  in 

OPTIMUM  CRACK  LENGTH  •  .56814  in 

EXTENSION  REQUIRED  -  .00592139246594  in 

CRACK  LENGTH  AT  502  OF  EXTENSION  -  .446965946233  in 

Pb*i  -  765.336366326  Lb*  P»m  -  38.2968183162  Lbs 

D#1p  -  727.63954801  Lb»  *•**  -  29428.399829 

DEL TA_K  -  27957.4548376  in  .5  DELTAJCE  -  29000  in*  .5 

THE  rQLL0WING  INFORMATION  HAS  BEEN  OBTAINED: 

CRACK  LENGTH  -  .564151471472  in  FROM  MEASUREMENT  »  i 
WITH  95ZC0NFIDENCE  INTERVAL  FROM  .565674835605  TO  .562639453926  in 
USING  COD  COMPLIANCE  OF:  4 .85680462792E-6  m/Lb  -  2 .801 124373/9E-5  «d/N 
WITH  A  CORRELATION  OF:  .999133273453  FROM  72  DATA  POINTS. 


THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED: 

CRACK  LENGTH  •  .568361917225  in  FROM  MEASUREMENT  *  2 
WITH  952CONFIDENCE  INTERVAL  FROM  .569305393318  TO  .56/422811142  m 
USING  COD  COMPLIANCE  OF:  4 .99294827909E-6  tn/Lb  -  2 .8688391 6896E-5  bb/N 
WITH  A  CORRELATION  OF;  .99960*697254  FROM  84  DATA  POINTS. 

PRECRACKING  IS  CONPLEIED! 

FINAL  CRACK  LENGTH  -  .568361917225 
CORRELATION  OF  DATA  -  .999601697254 

REMOVE  SPECIMEN  FROM  MTS. 
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conversion  do™ 

FQH  *.0*0- -1  779. 298646  s/v  <  40C  Lb%/V) 

FOR  CCO:  .254  mm/'j  <  .31  in/V» 

FOR  OCFLECriON: -1 .27  mm/V  ^  .05  in/V) 

CIVtN  **  .568  inch#*  THEN: 

P#*»*  895.250182804  Lb*  FROM  ASTM  £813-81 


THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED: 

INITIAL  CRACK  LENGTH  -  14.3875382557  n  FROM  MEASUREMENT  «  1 

WITH  952  CONFIDENCE  INTERVAL  FROM  14.4079726404  TO  14.3671845862  «• 

USING  COD  COMPLIANCE  OF:  2 .81520064535E-5  mm/N 

WITH  A  CORRELATION  OF:  . 999323843963  FROM  189  DATA  POINTS. 


THE  FOLLOWING  INFORMATION  HAS  BEEN  OBTAINED: 

INITIAL  CRACK  LENGTH  -  14.4326755548  mm  FROM  MEASUREMENT  4  2 

WITH  952  CONFIDENCE  INTERVAL  FROM  14.4442813846  TO  14.42109582  mm 

USING  COD  COMPLIANCE  OF:  2.84829954475E-5  m/N 

WITH  A  CORRELATION  OF:  .99984474937  FROM  134  DATA  POINTS. 
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CHANCE  IN  COO  *  .00109982  a* 


-  JMLCAOINC  • 2  - 

CRACK  LENGTH  -  *4.4711513219  m  DELTA  »  •  .  03847S7670308 

953  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  l5  FROM  14.4927078135  TO  14.4496847244 

TOTAL  •  DATA  POINTS  -  947  •  DATA  POINTS  THIS  UNLOADING  *  132 

CORRELATION  -  .999467111958 

COD  COMPLIANCE  -  2. 8930791 3363E-5  mm/H 

AREA  -  1693.69098454  N-m 

J  -  35.2970225265  KJ/a*2 

MAX  LOAD  LINE  DEFLECTION  -  .382347556072  ■« 

CHANGE  IN  COD  -  .0008382  mm 


-  UNLOADING  *  3 

CRACK  LENGTH  •  14.4875164202  im  DELTA  _4  -  .0548408654168  ■* 

953  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM  14.5143346851  TO  14.460837178 

TOTAL  •  DATA  POINTS  -  1300  *  DATA  POINTS  THIS  UNLOADING  -  157 

CORRELATION  -  .999017363069 

COD  COMPLIANCE  -  2.90942709989E-5  m/N 

AREA  •  3033.0003923  N-«m» 

J  -  63.28381022  KJ/ii'2 

MAX  LOAD  LINE  DEFLECTION  •  .543433314464  mm 
CHANGE  IN  COD  -  .0009398  mm 


-  UNLOADING  »  A  - 

CRACK  LENGTH  -  14.5414951598  DELTA  .4  -  . t088l9604992  mm 

953  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM  14.5601316376  TO  14.5229259715 

TOTAL  *  DATA  POINTS  -  1670  •  DATA  POINTS  THIS  UNLOADING  •  109 

CORRELATION  •  .999675611283 

COD  COMPLIANCE  *  2.944429881 18E- 5  »mh/N 

AREA  -  5208.32927275  N»mm 
J  -  108.998439815  KJ/»'2 

MAX  LOAD  LINE  DEFLECTION  -  .732918890292  mm 
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-  UNLOADING  •  6  - 

CRACK  length  -  14.8152586049  mm  DELTA  a  -  .382583050059  ran 

951  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  I§  FROM  14.8481840789  TO  ,1 4 . 782543466 

TOTAL  •  DATA  POINTS  -  2280  •  DATA  POINTS  THIS  UNLOADING  -  138 

CORRELATION  -  .998642018089 

COD  COMPLIANCE  -  3 . 1 7719219461E-S  ran/N 

AREA  -  9001 .97373669  N-ran 
J  -  185.342172083  KJ/ra'2 

MAX  LOAD  LINE  DEFLECTION  -  1 . 1 8989063 1 6 1  mm 
CHANGE  IN  COD  -  .0009906  ran 


-  UNLOADING  •  7  - 

CRACK  LENGTH  •  14.8635206824  mm  DELTA  _a  -  .436845127588  ran 

952  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM  14.3849566722  TO  14.85413T 1238 

TOTAL  •  DATA  POINTS  -  2531  •  DATA  POINTS  THIS  UNLOADING  -  147 

CORRELATION  -  .999677856393 

COD  COMPLIANCE  -  3.20855798284E-5  nra/N 

AREA  -  9678.11102926  N-ran 

J  -  198.876552682  KJ/ra'2 

MAX  LOAD  LINE  DEFLECTION  -  1.26297067275  ran 

CHANGE  IN  COD  •  .0004572  ran 


-  UNLOADING  #8  - 

CRACK  LENGTH  •  15.0148445285  nn  DELTA  a  -  .582168973634  ran 

952  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM  15.04T677838S  TO  14.9881516089 

TOTAL  •  DATA  POINTS  *  2761  •  DATA  POINTS  THIS  UNLOADING  -  97 

CORRELATION  -  .999364204197 

COD  COMPLIANCE  -  3.34673392487E-5  nn/N 

AREA  ■  10586.6765231  N««« 

J  -  215.448776655  KJ/n'2 

MAX  lCAD  LIME  DEFLECTION  •  1.36396114491  ram 
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1  «>l«4  1  •  M 


NMMt..  • 


::i 


•*,<  *.  ;  i  ii  ;r.  mm  :*  »  «  •  :•  M 

v, ;  :**.;«  <«.  i  .  <*  t  »v*a  .m  .  **.  *.inw»  *  ’  *  -m  ***..*'  •  :*.»'•  « 

‘ *  •  >6*;  #  >*•*  'T :«»•'.  »:*.  ji  •  ■  ■  ■* 

nan.*-:;*  -  frr'iA’)« 

;jo  .y+'.-.mci  •  i  ajjajc  v 

40f  A  •  •  '  ’09  **•«• 

j  -  :i/  smrrzit 

•**x  .oao  l:x  deflection  •  t  .49020183752  «• 

CHANCE  IN  COO  -  . 0015842  mm 


-  UNLOADING  *10  - 

CRACK  LENGTH  -  15.2624877891  mm  DELTA  a  -  . 8298)22343; 4  mm 

952  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM  15 .2760292626  TO  15.2489823604 

TOTAL  •  DATA  POINTS  -  3394  •  DATA  POINTS  THIS  UNLOADING  *  167 

CORRELATION  -  .99970091505S 

COO  COMPLIANCE  *  3.56785340653E-5  mm/N 

AREA  -  12983.4083914  N-aa 
J  -  262.394826944  KJ/a‘2 

(1AX  LOAD  LINE  DEFLECTION  -  1.63760345064  na 
CHANGE  IN  COD  -  .0007366  mm 


-  UNLOADING  •  11  - 

CRACK  LENGTH  -  15.3993548961  na  DELTA  a  -  .966679341294  an 

952  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM  15.4107739959  TO  15.3879615278 

TOTAL  *  DATA  POINTS  -  3867  »  DATA  POINTS  THIS  UNLOADING  -  204 

CORRELATION  -  .999734089719 

COD  COMPLIANCE  -  3.70351235759E-5  »«/N 

AREA  -  14557.9277896  N-aa 
J  -  294.038000741  KJ/a*2 

MAX  LOAD  LINE  DEFLECTION  -  1  .82262379631  ma 
CHANGE  IN  COO  -  .0004318  an 


-  UNLOADING  *  12  - 

CRACK  LENGTH  -  15.669999544  mm  DELTA  a  -  1.2373239892  mn 

952  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  Is  FROM  15 .6847004127  TO  15 .6553416287 

TOTAL  #  DATA  POINTS  •  4267  •  DATA  POINTS  THIS  UNLOADING  •  154 

CORRELATION  -  .999652892868 

COD  COMPLIANCE  *  4.00Q50024785E-5  aa/N 

AREA  •  16330.4160222  N-aa 

'  •  '5'^R  Y  l/m'O 

MAX  lOAD  lINE  DEFLECTION  *  2.03S25C76401  mm 
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11 


«*  . 


** i  i  «*.  ' »  •  ■.  ri  t  i  M  m  :«  »  »  •  m 

r*  ;  .  .*0  ;«<at  %*:•••**.  *  »*  *  ;  xtw  "  T.  •  *.i»  »  .  •  M.t .  :  *  •  •  » 

#  aa*a  •  4“:  #  a*’*  «:*.  .«».  :**.  •  .  ;» 

.  :*«t .  A  '  ;  J*  -  TTH  * 

.co  sOmtv :4*u  •  *  .'*i ■ 

*pf  a  •  •  *933  7-«m« 
j  •  355*0006494  ij/«  : 

"•»  loao  l:*c  ocruc'tON  *  329*335  am 

CHANCE  IN  coo  -  . ooosoa  mm 


-  UNLOADING  «  •«  - 

CRACK  LENGTH  -  16. 1357477216  DELTA  *  -  1.7030721663  »• 

95%  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  I§  FROM  16.1463233402  TO  16.1251947229 

TOTAL  •  DATA  POINTS  -  5206  •  DATA  POINTS  THIS  UNLOADING  •  239 

CORRELATION  -  .999696024845 

COD  COMPLIANCE  -  4 .57508725867E-S  mi/N 

AREA  -  19646.0705407  N-«* 

J  -  385.620902249  KJ/«*2 

MAX  LOAD  LINE  DEFLECTION  -  2.47449867471  mm 
CHANGE  IN  COD  *  .000 4826  mm 


-  UNLOADING  »  15  - 

CRACK  LENGTH  -  16.4193583405  n«  DELTA  a  -  1.98668278568  mm 

95%  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FRDM  16.4364102869  TO  16.4023658462 

TOTAL  •  DATA  POINTS  *  5648  •  DATA  POINTS  THIS  UNLOADING  -  194 

CORRELATION  -  .999324290353 

COD  COMPLIANCE  -  4.99261 698493E-5  «»/N 

AREA  -  21264.009056  N-*« 

J  -  412.083508069  KJ/«T2 

MAX  LOAD  LINE  DEFLECTION  -  2.70365472703  m* 

CHANGE  IN  COD  *  .0005334  mm 


-  UNLOADING  »  16  - 

CRACK  LENGTH  -  15.9028626935  «wi  DELTA  a  •  2.47018713865  mn 

95%  CONFIDENCE  INTERVAL  ON  CRACK  LENGTH  IS  FROM  16.91711T3874  TO  16.888656585 

TOTAL  *  DATA  POINTS  -  6102  *  DATA  POINTS  THIS  UNLOADING  -  162 

CORRELATION  •  .999564028818 

COO  COMPLIANCE  -  5.80350094828E-5  wp/N 

AREA  •  22950.1834392  N-w. 

J  «  428.162914109  Kj/m'2 

MAX  load  LINE  DEFECTION  •  2.96634900605  mm 
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:+  •  •  . «  .«  »  » 


•«.  :r><  •  t« 

«4*i  •  :  * ;  * 

» ‘ t  r:  t  *  • 

• 

-  r*t. 4  *  r* .  > « 

’  *;i»  » 

:«*  -  * 

.  •  <  • 

4; 

-h.  :•«.  « 

.  <  *  _  a 

;  > 

i 

0'*»w?S 

•4  4 

338476 

JS  3 

i 

05*841 

63 . 3 

4 

.  :  08829 

109.0 

5 

.308074 

169. 9 

6 

.  383583 

185.3 

7 

.436845 

198.9 

9 

.532169 

215.4 

9 

.689001 

237.7 

10 

.829812 

262.4 

1 1 

.966679 

294.0 

12 

1  .237324 

325.4 

13 

1.445466 

255. 4 

14 

1.703072 

3S5.6 

15 

1 . 986683 

412,1 

16 

2.470187 

428,2 

DATA  FROM  J 

DELTA.a  plot 

SLOPE  -  164. 148013927  Y- 

INTERCEPT 

-  12 

CORRELATION 

•  .99667195294 

FROM  9 

DATA 

Jlc  *  142.05774949 


TEST  IS  OVER! 


.92307501? 

POINTS. 
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•  .  r  '  it 

.«*  ;  ;  »  •  *« 

•  •  4  *r  «.  '  >  ;  m:  •*  . 

•  4  *44.4  ■:»**.  *  *.'  •**». 

•  ajm  •  :  i**.  ■>  *•■**"  t  ‘ 

cowi  ,»■  :on*  -w? •* ■  4*j i  *  *  *t.a  *t>  ,>*'a  ."i 
jo  tou  hant  a  hmd  ::<p*  >  *m:s  :nf  :>rma’:ln 


FROM  UNLOADING  *  »  RECORDED  128  DATA  POINTS 

COD  COMPLIANCE  -  2 . 87SSS29381 7E-S  am/N  CORRELATION  •  .999529434569 
CRACK  LENGTH  -  14.4487507815  i»  DELTA_A  -  .016075226716  am 
952  CONFIDENCE  INTERVAL  FROM  14.4693514291  nut  TO  14.4282322251  an 
AREA  *  711.365042717  N-na  J  -  14.8049806501  KPa-a 
DATA  POINT  INDEXES  FROM  504  TO  632  HERE  USED. 


FROM  UNLOADING  »  2  RECORDED  132  DATA  POINTS 

COD  COMPLIANCE  -  2.89307913363E-5  ma/N  CORRELATION  -  .999467111958 
CRACK  LENGTH  -  14.471 1513219  aa  DELTA_A  -  .0384757670308  am 
952  CONFIDENCE  INTERVAL  FROM  14.4927078135  mm  TO  14.4496847244  am 
AREA  -  1693.69098454  N*a«  J  -  35.2970225265  KPa*a 
DATA  POINT  INDEXES  FROM  815  TO  947  HERE  USED. 


FROM  UNLOADING  *  3  RECORDED  157  DATA  POINTS 

COD  COMPLIANCE  -  2 . 90942709989E-5  am/N  CORRELATION  -  .999017363069 
CRACK  LENGTH  -  14.4875164202  aa  DELTA_A  •  .0548408654168  am 
952  CONFIDENCE  INTERVAL  FROM  14.5143346851  am  TO  14.460837178  am 
AREA  •  3033.0003923  N«mm  J  -  63.28381022  KPa*m 
DATA  POINT  INDEXES  FROM  1143  TO  1300  HERE  USED. 


FROM  UNLOADING  *  4  RECORDED  109  DATA  POINTS 

COD  COMPLIANCE  -  2.944429881 18E-5  am/N  CORRELATION  -  .999675611283 
CRACK  LENGTH  -  14.5414951598  aa  DEITA_A  -  .108819604992  am 
952  CONFIDENCE  INTERVAL  FROM  14.5601316376  am  TO  14.5229259715  am 
AREA  -  5208.32927275  N-am  J  •  108.998439815  KPa-a 
DATA  POINT  INDEXES  FROM  1561  TO  1670  HERE  USED. 


FROM  UNLOADING  *  5  RECORDED  95  DATA  POINTS 

COD  COMPLIANCE  -  3. 1 0248861 726E-5  mm/N  CORRELATION  -  .999731105207 
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•  -  !»  *«.  .  :  >*..  •  ■.*  m  «  ■«.  .  % 

.  '  .  'fcV  •  '  4  |  04*  *.  ■  *■  ‘  H 

*•»<  i  •  v,  ■  >•  •  ■  4  >  »  «4»  ■(  .  *  -  *  ■  *• 

•♦•■. ■;  : v  :  ;>t  <*  :  :s-f  «>a.  •  - 

4  -  <*,:m  -  *t<  • 

OO- A  >2{  «l  •*.  ,  •  mi -  • 


from  inl  jading  •  -r  sordid  •/  oa'a 

COO  COMPLIANCE  *  j  .  14b.'  s  ma.N  r.-fipl  .  m  •  ;  .)*,  -  fiu  j,,*.  *  •  . 

CRACK  ,lNOTH  *  ‘.5.9140445285  »«  Of:  *  A  4  -  .  Sri.'’b<V>' U,J4  ->« 

95V  CONFIDENCE  INTERVAL  FROM  '5. J4'6//9jPV  mm  '4  ,>Hb “■■  ‘  n  «r 
AREA  -  10586.6765231  N-mm  J  -  2' 5 . 4487/6655  «P*-m 
DATA  POINT  INDEXES  FROM  2664  ID  2761  WERE  JSEO. 


FROM  UNLOADING'  »  9  RECORDED  119  DAfA  POINTS 

COO  COMPLIANCE  -  3.43343078736E-5  mm/N  CORRELATION  •  .999776365*4 
CRACK  LENGTH  -  15.1216765395  »■  DELTA_A  -  .689000984704  .. 

95 2  CONFIDENCE  INTERVAL  FROM  15.1358606771  mm  TO  1 5 . 1 0 7531 8754  mm 
AREA  -  11709.4655627  N«mm  J  -  237 .699077286  KPa-m 
DATA  POINT  INDEXES  FROM  2923  TO  3042  HERE  USED. 


FROM  UNLOADING  *  10  RECORDED  167  DATA  POINTS 

COD  COMPLIANCE  •  3.56785340653E-5  *m/N  CORRELATION  •  .999700915055 
CRACK  LENGTH  -  15 .2624877891  mm  DELTA_A  -  .829812234314  mm 
95%  CONFIDENCE  INTERVAL  FROM  15.2760292626  mm  TO  15.2489823604  nn 
AREA  -  12983.4083914  N*»m*  J  -  262.394826944  KPa«m 
DATA  POINT  INDEXES  FROM  3227  TO  3394  HERE  USED. 


FROM  UNLOADING  *  IT  RECORDED  204  DATA  POINTS 

COD  COMPLIANCE  -  3.703512357S9E-5  mm/N  CORRELATION  •  .999734089719 

CRACK  LENGTH  -  15.3993548961  mm  DELTA_A  -  .966679341294  mm 

95 %  CONFIDENCE  INTERVAL  FROM  15.4107739959  mm  TO  15.3879615278  mm 

AREA  -  14557.9277896  N«mm  J  -  294.038000741  KPa-m 

DATA  POINT  INDEXES  FROM  3663  TO  3867  HERE  USED. 


FROM  UNLOADING  *  12  RECORDED  154  DATA  POINTS 

COD  COMPLIANCE  *  4.0005002478SE-5  mm/N  CORRELATION  -  .999652892868 
CRACK  LENGTH  -  15.669999544  mm  DELTA_A  -  1.2373239892  mm 
95%  CONFIDENCE  INTERVAL  FROM  15.6847004127  mm  TO  15.6553416287  mm 
AREA  -  16330.4160222  N»mm  J  -  325.442585526  KPa*m 
DATA  POINT  INDEXES  FROM  4113  TO  4267  WERE  USED. 
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FROM  UNLOADING  *  13  RECORDED  208  DATA  POINTS 

COD  COMPLIANCE  -  4 ,243771 23766E-5  mm/N  CORRELATION  -  .999577232131 
CRACK  LENGTH  -  15.8781418346  mm  DELTA  A  •  1.44546627973  mm 
952  CONFIDENCE  INTERVAL  FROM  15.8901071812  mm  TO  15.8662051558  mm 
AREA  -  17933.7183158  N«mm  J  -  355.360006494  KPa-m 
DATA  POINT  INDEXES  FROM  4502  TO  4710  HERE  USED. 


FROM  UNLOADING  *  14  RECORDED  239  DATA  POINTS 

COD  COMPLIANCE  -  4 . 57508725867E-5  mm/N  CORRELATION  *  .999696024845 
CRACK  LENGTH  -  16 . 1357477216  mm  DEL TA_A  -  1.7030721668  mm 
952  CONFIDENCE  INTERVAL  FROM  16.1463233402  mm  TO  16.1251947229  ram 
AREA  -  19646.0705407  N-rnn  J  -  385.620902249  KPa»m 
DATA  POINT  INDEXES  FROM  4967  TO  5206  HERE  USED. 


FROM  UNLOADING  *  15  RECORDED  194  DATA  POINTS 

COD  COMPLIANCE  -  4.99261698493E-S  mm/N  CORRELATION  -  .999324290353 
CRACK  LENGTH  -  16.4193583405  mm  DELTA_A  -  1.98668278568  ram 
952  CONFIDENCE  INTERVAL  FROM  16.4364102869  mm  TO  16.4023658462  ram 
AREA  -  21264.009056  N-m«  U  -  412.083508069  KPa*m 
DATA  POINT  INDEXES  FROM  5454  TO  5648  WERE  USED. 


FROM  UNLOADING  *  16  RECORDED  162  DATA  POINTS 

COD  COMPLIANCE  *  5 . 80350094828E-5  mm/N  CORRELATION  -  .999564028818 
CRACK  LENGTH  *  16.9028626935  mm  DELTA_A  -  2.47018713865  mm 
952  CONFIDENCE  INTERVAL  FROM  16.9171113874  mm  TO  16.888656585  ram 
AREA  -  22950.1834392  N*mm  J  -  428.162914109  KPa-m 
DATA  POINT  INDEXES  FROM  5940  TO  6102  HERE  USED. 


DATA  ^ROM  ai)  FGR:rtY80-58  BY:  KURT 
TESTED  ON:  12-13-83  TIME :  10:35 


* 

LOAD  <n> 

DEFLECTION  <*■»> 

COD  <mm> 

1 

2262.5 

.079424 

.060576 

2 

226 1  . 7 

.074706 

.060576 

3 

2265.2 

.076740 

.060637 

4 

2277.3 

.079003 

.061003 

5 

2350. S 

.093469 

.063589 

5 

2409.0 

.094979 

.065014 

7 

2442.3 

.095827 

.065395 

8 

2463.4 

.096431 

.066429 

8 

2478.3 

.096383 

.066954 

10 

2496.2 

.097378 

.067280 

11 

2505.2 

.037666 

.067627 

12 

2515.4 

.098165 

.067772 

13 

2526 . i 

.098554 

.063207 

14 

2539.6 

.0991 14 

.063511 

15 

2554.0 

.099864 

.068969 

16 

2570.4 

.100177 

.06341 1 

17 

2595.3 

.101411 

.070231 

13 

2624 . 1 

.102889 

.071107 

13 

265.3 . 4 

.103775 

.072045 

20 

2638.5 

.104678 

.072903 

21 

2722.7 

.106054 

.073863 

22 

2746.9 

.  t0672t 

.074519 

23 

2764.1 

.107052 

.075024 

24 

2779.2 

. 108077 

.075443 

25 

2799.3 

.108725 

.075956 

26 

2820.2 

.109596 

.076655 

27 

2837 .3 

.110482 

.077142 

23 

2854.0 

,1tQ667 

.077617 

23 

2873.4 

.112035 

.079313 

30 

2939.6 

.114805 

.080284 

31 

2984 . 9 

.115696 

.08147? 

5  5  5  8 

6085  5686 . 4  2.354239  2.4604; 


6085 

5686.4 

2.354239 

2.460422 

6086 

5692.7 

2.954786 

2.460701 

6087 

5699.1 

2.955204 

2.46)209 

6038 

5704.9 

2.955623 

2.461616 

6089 

5716.5 

2.956736 

2.462454 

6090 

5731  .8 

2.957790 

2.463394 

6091 

5747.5 

2.959093 

2.464359 

6092 

5761  .2 

2.959789 

2.465172 

6093 

5768.6 

2.960445 

2.465730 

6094 

5777.0 

2.961089 

2.466442 

6095 

5785.5 

2.961730 

2.467051 

6096 

5792.3 

2.962262 

2.467534 

6097 

5803.0 

2.963643 

2.46832? 

6098 

5812.6 

2.964142 

2.469007 

6099 

5818.6 

2.364692 

2.469540 

6100 

5824.1 

2.965503 

2.470175 

6101 

5830.0 

2.965801 

2.470582 

6102 

5836.3 

2.966848 

2.471293 
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